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INTRODUCTION 

Using games to learn BASIC 




The Atari Home Computer descended from several generations of arcade 
machines. The machine language high resolution graphics in the cartridge 
games are a lot flashier and faster acting than comparable images created 
from BASIC language commands. BASIC is a higher level language that 
allows programmers to write instructions with English-like statements and a 
relatively easy to follow structure and logic. The computer then interprets 
the commands and translates them to machine language when the program 
is run. BASIC is itself, a program designed to run other programs. Most of 
the games in this book are not dependent upon arcade-type action and 
speed, so BASIC is entirely appropriate and efficient for the task. Word and 
number games are easy to write in BASIC and can be easily modified to 
contain your own rules or examples. 



After learning how the games in this book work, you'll be able to write 
educational programs, guessing games, adventures, as well as beautiful color 
graphics and music programs. The mechanics of the games are explained in 
a way that will let you easily modify and customize the programs to your 
heart's content. Techniques are given that will allow you to examine the 
games inner workings and see what makes them tick. The games themselves 
are hours of fun. You will learn a lot by typing in the listings and seeing how 
typing errors show up in the programs as bugs and can then be easily chased out. 
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Do not be afraid of your computer! Remember, you are smart and the 
computer is dumb. The reason that programs have bugs is that the computer 
has to be told every little thing. It can't figure out a misspelled word or 
guess what you meant to type the way a person can. Fortunately Atari BASIC 
was written by some clever humans who programmed the computer to 
forgive as many errors as possible, and to point out and explain the errors it 
does find. Relax and have fun. NOTHING you type in from the keyboard 
can hurt the workings of your computer, you will just get what is called 
GIGO — garbage in — garbage out. 



FINDING BUGS AND CHASING THEM AWAY 

The Atari will find and identify two kinds of errors for you. Syntax errors are 
spotted immediately and pointed out by an ERROR- flag and an inverse 
(black on a white square) character over the error; however, the actual error 
might be quite a bit before the flag. A close parenthesis would get a flag if 
the open parenthesis were left out earlier. Run time errors are spotted when 
the program excecution is interrupted by an incompatability. The ERROR 
message will give a message number and the line the program stopped on, 
but the error will usually be in an earlier line. You have to figure out from 
the type of error and the line in which the error occured what needs to be 
done earlier in the program to correct the error. Finally, the program may 
be free of errors and still not run correctly. This is the final debugging and 
certainly the hardest part. 
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THE BASEMENT WORKSHOP 

All the programs have unused numbers at the beginning of the listing that 
can be used to set up little routines for testing lines before they are used in 
the program. If the program is already entered, you can renumber a line by 
holding down the CTRL key, moving the cursor next to the line with the 
arrow keys, and typing in a new line number. This will NOT delete the 
original line, but will make an exact copy of the line at the new line number. 
The description for Sci-Fi tells how to set up a little music routine in the 
'basement' that checks out and plays the music for the program. 

Let's look at an example from Biorhythm. Line 2070 is the kind of line that 
is as clear as the bottom of Lake Erie. 

2070 P3=INT(1 1 .5+1 0*SIN(P2*6.283/23)) 

Renumber this line as 20. There are only two variables, P3 is the only one to 
the left of the = sign, so whatever happens to P2 has to effect P3. Try a 
FOR=NEXT loop to plug a series of numbers into P2 and print out the result. 

10 FOR P2=1 TO 40 

20 P3=INT(1 1 .5+1 0*SIN[P2*6.283/23]] 

30 PRINT "P2=";P2,"P3=";P3 

40 NEXT P2 

As you can see, this line generates a series of numbers that diminish, increase 
and then diminish again. These are SIN waves and are used to create the 
curving lines of the biorhythm charts. Once you have a way of seeing how a 
line "does its thing" you can understand how it works in the program and 
how it might be modified to work in your own programs. 

PRINT statements such as we just used can be put into the middle of 
programs to show you what is being done with the variables. They are most 
useful if placed just after the FOR in a FOR-NEXT loop, or just after the 
first line of other kinds of loops. When the program is running and you 
press BREAK, most of the time you will be in the middle of the play loop. 
The computer will say STOPPED AT LINE XXXX. Usually a FOR, NEXT 
or GOTO line will be close to the number where the program stopped. The 
line we used from Biorhythm is in a loop that starts at: 

2030 FOR T-1 TOZ 
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We can watch our variable P (physical state) working with the T (time) 
variables in the loop each time it is executed: 

2032 PRINT "T=";T,"P1 ="; P1 ,"P2="; P2,"P3="; P3 

If the loop prints out the variables too fast for you to read, you can stop the 
works with an INPUT statement. DIMension a variable in the beginning of 
the program and put in an INPUT where you want the program to stop. 

2034 INPUT AN$ 
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Now the loop will print out the variables and wait for you to press <RETURN> 
before looping around again. Those pesky variables are the hardest things to 
understand, so many of them can be temporarily frozen by putting in a 
constant in place of the variable. This is particularly effective in graphics to 
show what variable creates what part of the image. If you see a line like 
COLOR X, you can change it to COLOR 2. Now some part of the graphic 
that used to change color will stay blue and you will know what action the 
variable applies to. Variables can also be arbitrarily entered into the program 
with input statements. In the example from Biorhythms, you could read the 
variables in line 2032 and then change them in 2034 INPUT T,P1. The next 
time the loop cycled you could see what your values for T and Pi did to the 
loop. If the program crashes once in a while, chances are that some strings 




are getting too long or variables going out of range, (trying to draw a line 
too long for the screen is a common example). When the program has 
stopped you can still print out the variables and strings by typing ?P1 ?Z ?AN$ 
etc. Print these before you RUN the program again and write down 
the results. 




REM is very useful for disconnecting a line from a program, temporarily. 
Move the cursor to the first position past the line number. Press CTRL and 
3 INSERT'S, then type in REM. What does the program do without this 
line? Type in an alternative line of your own devising using an intermediate 
line number. You can also isolate parts of programs with a GOTO. This is 
useful for temporarily eliminating a lengthy title screen while you are 
working on the play part of the program. STOP can also be used to test part 
of a program. Put in a STOP command wherever you want to tinker with 
variable. After the program stops you can print out the program's variables 
and enter your own variable and strings in direct mode 

A$="horse" 
X=3 

When you type CONT the program will resume with these variables. 
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SAVING YOURSELF FROM DISASTER 

Whatever is typed into the computer's memory exists in a temporary state. 
In computer terms it is volatile and likely to vanish instantly if the power 
goes out. If the program was saved on cassette tape or floppy diskette, it can 
be recovered as if nothing ever happened. A program does not have to be 
complete or correct to be saved. Even fragments or listings with error 
messages can be saved to fix later. Occasionally and unpredictably the 
computer will freeze up and refuse to respond to any keyboard commands. 
If this happens there is only one cure and that is a drastic one. The power 
must be turned off and back on; the ultimate reset! Everything in the 
computer's memory is then lost. The best protection against disaster is to 
save your work regularly every ten minutes or anytime you get up from the 
computer. 



If you are editing Basic commands it is important to list the program 
often; this seems to prevent freeze-ups and memory loss. 
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We emphasize saving programs often because we want you to play around 
with the programs, try whatever comes into your mind and mess around 
with every line. Put in silly routines and eventually get the program so 
messed up that you have to toss it out and load in a previous version. This is 
a good way to learn, and certainly the most fun of any method of learning 
Basic. 

If you have a program running half-way right it is a good idea to save it as an 
intermediate version. Often we make some useful modifications and then 
mess the program up with later additions. The useful parts might get thrown 
out with the mess. The Atari disk system allows programs to have suffixes 
added to the names such as FUNGAME.Vl, FUNGAME.V2, etc. This makes 
it easy to identify the version. Get used to starting each programming session by 
putting today's date at the beginning of the program, you will thank me for 
it later. When the program is finished the disks or tapes with obsolete 
versions can be reused for other programs. 

The Atari can save program listings as text files for easy editing and merging 
with other programs. 'If you have written a nice title screen and would like to 
modify it for use with another program you can file away just the lines of the 
title screen portion of the program: 

LIST"D:GAMENAME.LST",1 000,1 540 

(D: for disk drive, C: for cassette recorder) 

Retrieve this section of program with: 
ENTER"D:GAMENAME.LST" (C.for cassette) 

Once a section is isolated it can easily be merged with other parts of programs 
by additional ENTER statements. If any line numbers are the same, the 
incoming line numbers will replace the existing line numbers. Short segments 
can be quickly renumbered to avoid conflicts. ENTER does not clear out 
existing memory, RUN and LOAD replace everything in memory. 



USING GAMES TO LEARN BASIC 

We recommend that you develop your gamesmanship in three stages: 

1) Copy the listings in this book and get the games to run. 

2) Learn the function of BASIC commands by modifying the games and 
writing variations of your own. 
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3) Use the structure program and routines from our games to construct new 
games of your own design. 

4) Don't stay up too late or neglect your family. When it's not fun any more, 
take a break. 



STRUCTURED PROGRAMMING: 

Some of the programs have been written in Structured BASIC with a standard 
framework that can be used to develop your own programs. 

100 REM ************************************** 

110 REM* TITLE OF LISTING IN A BOX 
120 REM ************************************** 

200 REM DIMENSION VARIABLES AND STRINGS IN 200-290 

300 GOSUB 1000:REM INSTRUCTIONS 

310GOSUB 2000:REM SETUP 

320 GOSUB 3000:REM PLAY 

330 GOSUB 4000: REM END ROUTINE 

340 END 

1000 REM *** 

1010 REM *** INSTRUCTIONS 

1020 REM *** 

1990 RETURN 

2000 REM *** 

2010 REM *** SETUP 

2020 REM *** 

2990 RETURN 

3000 REM *** 

3010 REM *** PLAY 

3020 REM *** 

3990 RETURN 

4000 REM *** 

4010 REM *** END ROUTINE 

4020 REM *** 

4990 RETURN 




© © © © <$)y 
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This program will run even though it doesn't do anything. You can use it for 
your own programs to help stay organized and remind you of what needs to 
be done. It is also useful psychologically. When you are inspired you can 
work on the play section. When you are tired you can work on the title 
screen. When you are energetic you can write the setup. When you are angry 
you can put fiendish maledictions in the end routine. 




19 



When you see this symbol in the program listing PRINT 
statements }, it means to press esc clear. 
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This program is an entertaining collection of short stories which you can 
make as personal as you wish. Every time you run the program you are given 
the chance to enter your own list of names and places to use in the stories. 
Once you see how the program works you may want to write your own 
version of the actions and sequence of events. This program was chosen for 
a line-by-line description because most of the routines for handling text and 
data are introduced here. After you have written out this game you will be 
able to write just about any type of quiz, educational program, or word game. 
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Sci-Fi was written with more lines of BASIC than an advanced programmer 
would use. This was done so a beginning programmer could easily understand 
and modify the program. Rather than branching to subroutines for each part 
of the story, the program goes straight through each section. A good 
programmer would put all the text into a few data statements and read it 
into DIMensioned string arrays with a series of FOR- NEXT loops. If you saw 
all that at the beginning of a games book, you might go back to building 
model airplanes! It is not necessary to save memory space or make the 
program run faster if there is no 'arcade' type of action in the game. This 
program is like the shaggy-dog stories it creates. There are as many versions 
of the 'story generator' as there are programmers, and each one thinks his 
version is more clever than the next. As soon as you get this program 
working you are invited to tinker with it and create your own version. 
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Lines to 99 constitute your "workshop" area for setting up test routines to 
try out parts of the program. This is where we have placed a routine that 
tests the data statements that play music. If you have typed the music data 
correctly, you should hear the "William Tell Overture." You can jump 
ahead to the music section in 3900 and try out some music before writing 
any more of the program. 

Lines 100-170 are the introduction to the listing. REM statements are not 
executed in the program, rather they are used to leave notes to yourself and 
other programmers. If you save a partially completed game or one you have 
modified, leave yourself a note: 
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99 REM Part finished Friday 1/13 

Line 220 sets all the variables to zero, a little bit of homework that has to be 
done to Atari BASIC programs. 

Line 250 TRAP sets an error trap for the next line where the printer is called. If 
no printer is attached, or the printer is not ready to print, the error trap 
sends the program to line 300 where it will continue as if line 270 didn't 
exist. 

Line 270 "OPENS" a device input-output path. The #1 path is assigned to 
output (8) with no (0) auxiliary code and told that the output device is a "P" 
printer. Once this line is executed in a program all text can be sent to the 
printer with the command PRINT #1 "your words." 

Lines 300-330 are the framework of the structured program that is used 
throughout this book. You should type in the entire structured program 
(see page 18) so the program will run as you add to it. 

Line 340 follows the end routines in lines 4000-4990. Setting the keyboard 
back to upper case is a convenience to the user because the computer will 
be in BASIC when the game ends and all BASIC commands must be in upper 
case. This is the last line to execute before: 

Line 350 END. The END statement doesn't have to be at the end of the 
program listing. In fact, END can occur in several different places in a 
program. You can write a command to end a program if a certain condition 
is met such as: 

IFX = 20THEN END. 

Line 1000 is the target of the GOSUB in 300. 

Line 1010 sets an invisible cursor so that a white square will not be displayed 
in front of all the text on the screen. We suggest you type: 

1010 REM POKE 752,1: REM INVISIBLE CURSOR 

REM can be used to temporarily disconnect any line from the program, even 
one with another REM statement. It is useful to keep the cursor visible 
while you write and test out the program. Delete the first REM when 
everything is working. 
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Line 1020 clears the screen. In order to put a function key command in the 
program, put the command in a PRINT statement and press ESC(ape) before 
the function command. CLEAR will print on the screen as a bent arrow and 
on the printer as a curly bracket. 

Lines 1030-1090 formulates the title screen displayed in a box. 

Line 1030 is the top of an outlined box. It does not appear on the printer 
output. The edit features of the Atari will really help you wiz through screen 
formats such as this. Start with the longest line, 1060. Use the (bar symbol) 
on the equal key for the sides of the box. Guess at the number of spaces to 
put into the center of the box. To run only this section, type GOSUB 1020. 
You can add or delete spaces to center the text "/Science-Fiction Tales/." 
Now comes the tricky part. 

Type LIST 

Press CTRL (UPARROW) until the cursor is opposite line 1060. 

Press CTRL (RIGHTARROW) until the cursor is over the 6 on 1060 Type 3 
and RETURN. This will duplicate 1060 as 1030. Repeat this process making 
all the lines from 1030 to 1100 into "/Science- Fiction Tales/." This will 
provide the PRINT statements, quotes, spaces, and line numbers for the 
entire box. It will then be quite easy to type over "/Science-Fiction Tales/" 
with the correct text, frame, or blank spaces. Press RETURN after each edit 
and DO NOT edit two different lines at once. 

Move the cursor to the (bar symbol) in line 1030. Type (CTRL) Q for upper 
left corner and (CTRL) R for the horizontal line. Hold down the (CTRL) R 
and it will repeat. When you get to the ending (bar symbol) type (CTRL) E 
for the upper right corner. For line 1040 just space over the text to erase it. 
Change the number of line 1040 to create lines 1065 and 1075 Edit line 
1070 erasing with the space bar until you get to the 'F' in 'Fiction.' Type 
'from' over the existing text and blanks to the bar. 

LIST and RUN the program as often as you would like to check your work. 

This technique might be slow at first, but it will save you time if you 
completely learn the edit commands. 

********oa wp YDIIR PRfirRAM********' 

By the time you have reached this point, you have made a fair investment of 
time in entering commands. Save what you have done so far on tape or disk. 
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Always save what you have done before taking even a short break from the 
computer. It is also a good idea to list the program often; it seems to prevent loss 
of data and freeze ups that are known to happen after an intense period of 
editing. 




Lines 1 140-1200 make a little musical routine with a conditional loop. The 
'B' variable is set to the lowest allowable number of the musical scale. 'A' is 
still at 0. 
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1155 uses 'B' to make a low note. 

1 160 is a one line FOR-NEXT loop that waits a fraction of a second. 

1165 Plays a high note with the value of 'A'. 

1170 'A' is increased and 

1175 'B' is decreased. 

1180 Sends the program around to the beginning of the loop. 

1150 When the notes meet in the middle then the conditional 'A=B' will be 
true and the program will jump to line 1200. 

1200 turns sound off 

1205-1400 uses a similar conditional loop to play a musical note with each 
letter of the introduction screen. 

1205 Prints two blank lines. 

1210 and 1230 are the sentences that will print on the screen. 

1 300 Sets 'A' to a high note 

1310 Is the conditional that ends this loop. The loop will end when a note 
has been played for each letter of '(E$)'. 

1 320 Plays a note for 'A'. 

1330 Adds 1 to 'A'. 
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1 340 Prints one letter of (E$) each time the loop goes by with another increment 
of 'A.' The semicolon at the end lets the letters follow each other. 

1350 Waits a little. 

1360 Loops back to 1310 where 'A' is tested to see if the loop is to continue. 
If you want to understand this loop better add a line: 

1315 PRINT" A=";A 

This will print out the value of 'A' as it is used in the loop. Take this line 
1315 out when you are done experimenting. 

1400-1500 is yet another variation on the conditional loop. 

1410 B is set to one and is used to count the letters of (F$). 'A' is brought 
over from the loop above, and is use to bring the notes up the scale starting 
one note higher than the stopping place of the loop above that printed (E$). 

1420 Is the conditional test to check if all of (F$) has been printed. If it has, 
then the sound is turned off and the program goes to line 1500. 

1430 Plays the sound for 'A' 

1440 Prints the 'B' letter of (F$). 

1450 Takes one away from 'A' for the next higher note, and adds one to 'B' 
for the next letter of (F$). 

1460 Waits a little. 

1470 Completes the loop. Play around with these loops and sound routines 
until you have come up with some variations of your own. The main loop 
that prints out the Science-Fiction is another variation on the conditional 
loop, so it will help to understand these loops first. 

1510 Asks for the player's name. 

1520 Sets the keyboard to lower case. 

Also serves to hold the title screen on until the player is ready to proceed. 

1530 looks for the lazy player who just presses RETURN instead of responding 
to INPUT requests. This line names these players "Nameless Blob." It is 
important to put something in NA$ to prevent a crash later on. 
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1540 to 1640 asks which list of names the player wants to use. The answer is 
evaluated by the IF statements and assigned as a value of HG. If you choose 
the program's list of names then line 1630 sends the program around the 
entire input section directly to 'PLAY.' There is no error to check for an 
empty input statement. If you press RETURN without answering the question 
the program defaults to 'C (both lists of names). 

1990 Ends the title section and returns to 120 where it is sent back to 2000 

2000-2557 This entire section is a table of string variables with an input 
routine for the player to enter some of the names in each section. 

2020 Clears screen 

2025-2045 Dimension those variables! 



2055 Prints the top of a box to use as a guide for the length of the player's 
input. The box does not show in the printed listings but will appear on the 
screen listings. Just renumber line 1030 and take out the spaces before the 
first corner symbol. 

Line 2200 represents the first name provided by the program. The spacing 
of the line numbers is important. Each group starts at 00 or 50 and is 
numbered by five. There are seven names in the program and five places for 
player input. These proportions can be different, but must be consistant 
within the program. 
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Line 3000-3020 sets the numeric variables to before you use them, and 
then clears the screen. 

Line 3200 is a random number which gives a value of 1-5 to 'R'. 

Line 3205 the ON-GOTO selects from the titles in lines 3210-3230. 

3255 Take a deep breath, place your right forefinger on your forehead and 
repeat three times "THIS IS NOT MATH." Now that your brain is energized we 
will explain that this is the routine that randomly selects either the 
program's choices (0-6), the player's choices (7-11), or both (0-11) according 
to the selection of HG made in line 1610. The tricky part is that 12 * 
(HG=0). HG=0 is a truth test that has the value of 1 if HG=0 and if HG= 
any other number. In order to construct a big gee-wiz conglomeration like 
this we build up the parts in short segments, make them work, and then put 
the parts together. Lines to 99 can be used for experimenting on the 
program, and when the line works it can be numbered to go where it belongs. 
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Try this: 

10HG=0 

20 INPUT HG 

30 PRINT 12*(HG=0) 

40 PRINT 7*[HG=1) 

50 PRINT 5*(HG=2) 

60 GOTO 20 

Run this part and notice that you get three numbers on the screen,and only 
one of them will be more than 0. We can therefore add these all together 
knowing that only the number that corresponds to the truth value of HG 
will come out the end. 

Change the test program: 

40 PRINT 12*(HG=0]+7*(HG=1)+5*(HG=2) 

Delete lines 30 and 50, you will see that all the functions of the three lines 
are now in one line. Renumber 40 as 80 so a copy of the line will remain 
safely out of the way while you edit 40 some more. Add the random function: 

40RHNT[RND(0)*(12*(HG=0)+7*(HG=1)+5*(HG=2)]] 

Now say this three times real fast: 

Proliferating parentheses plague perfect programs. 

Add a routine to run the random function 20 times. 

30 FOR 1=1 TO 20 
50 PRINT "R=";R 
60 NEXT I 
70 GOTO 20 

Come back! You are not through yet. The HG=2 variable is supposed to 
yield a number from 6 to 11, so 7 must be added to the value of R after the 
random function is run. This is done by adding +(7 * (HG=2)) to everything 
after R. It takes two more sets of parenthesis and much fiddling. Just 
remember to renumber the last working version so you can start over if you 
mess up. Always add parenthesis in pairs, although the left one doesn't always 
have to come first. Now an input of should yield random 0-11, 1 should 
yield 0-6, and 2 should yield 6 to 1 1 . 
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Now put parenthesis around that whole statement and multiply it by 5* to 
get lines numbered by 5. 




Line 3260 sends the program to the group of names starting at 2400 plus the 
random number generated above. The name of the "Place that will be 
attacked" is stored in A$. 

Line 3270 sends the program to 3800 where A$ is printed out with musical 
accompaniment. 
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The program repeats the random selection of parts of the story in the 
following sequence: 

Places that will be attacked, selected by lines 3255-3270, stored at 2400-2457. 

Was attacked by-(action), selected by lines 3300-3305, stored at 3310-3330. 

Monsters who attacked, selected by lines 3350-3370, stored at 2300-2357. 

From- selected by lines 3400,3405, stored at 3410-3440. 

Our hero (name of hero), selected by lines 3500-3520, stored at 2200-2257. 

What our hero did, selected by lines 3550-3555, stored at 3560-3580. 

First action unsuccessful, selected by 3600-3605, stored at 3610-3630. 

Another hero, selected by lines 3650-3670, stored at 2200-2257. 




Successful action and result, selected by lines 3700-3705, stored at 3710- 
3730. 

Since each section of the story is printed out by GOSUB 3800, the program 
jumps from the last line to the end routine starting at 4080. 

Line 3800 is the print-out with musical accompaniment. 

Line 3805 checks to see if the random routines have chosen empty strings. If 
so, the player's name is substituted for A$. 

Line 3810 sets the variables for the letters and notes to 0. 
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Line 3815 prints the next letter of A$. Notice the semicolon after 

Line 3820 reads a note and a time value from the data tables of notes staring 
at 3910. 

Line 3825 plays a sound with the note just retrieved. 

Line 3830 looks at the keyboard cursor location with PEEK (85). If the 
cursor is past 30 and the next letter is a blank then the computer goes to the 
next line. This is a simplified 'wrap around' technique. 

Line 3835 restores the data tables to the beginning. Be sure to put in a 0,0 
for the last note, this command will replay the music. 

Line 3840 adds one letter to the A$ counter so the next letter will print 
when the loop gets back to 3815. 

Line 3845 is a delay loop set by the time value of the note. 

Line 3850 turns off the sound so that notes of the same value will not play as 
a continuous sound. 



Here's a little music box that you can build in the basement workshop (lines 
0-99) to test out the music routine and the data statements without having 
to run the whole program each time you want to hear music. Clear out any 
old lines and enter the following program: 



1 NT=0: TM=03 

20 READ NT.TM 

30 IF NT=0THEN RESTORE 

40 PRINT "N0TE="; NT/TIM E=";TM 

50 SOUND 0.NT.1 0,10 

60 FOR I- TO [TM*20):NEXTI 

70 SOUND 0,0,0,0 

80 GOTO 20 

The loop is much shorter in this segment so TM has to be 
multiplied by a larger number. Enter the data statements in lines 3900-3990. 
Even though the music box program never goes past line 80 it can read the 
data statements anywhere in the program. Line 40 prints out the notes and 
time. If there is a sour note or time error hit, the break key and check the 
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values on the screen. If you left out a comma, the time and notes will be 
switched with very strange results, but this error is easily traced and fixed. 

The music box can be left in the program and turned off with a line: 

5 GOTO 100 

Line 3855 this is the test for the conditional loop. The program will loop to 
3815 until PT equals the lenth of A$ and every letter has been printed. 
When PT is no longer true the program drops down to the next line 

Line 3860 returns from the GOSUB to the next section of story selecting. 

Line 3900 stores musical notes as data statements. The musical routine is a 
very simple one with only one 'voice.' The program can easily accommodate 
additional variables for the sound command if you want more sophisticated 
music with your stories. 

Line 4000-4030 clears the screen, says goodbye and returns to 140 where the 
program ends. 

Line 4080-4310 is a routine that is called in 3735 to offer options after the 
story is on the screen. 

Line 4120 accepts a response to the choices and stores it in G$. 

Line 4130 looks for an empty string and assigns it a value of "NO." Since 
this is not one of the choices looked for in the next two lines the program 
will 'fall through' to 4190 and ultimately 3000 where another story will start. 

In line 4140, the GOTO statement will send you to statement 4200 if you 
request a printed copy. We just checked the first letter of A$ to see if it was 
P or p. We had to test for and eliminate the empty string in line 41 30 or 
there would be an error if A$(l,l) did not exist. 

Line 4180 checks to see if you want to exit the program. Here we also check 
for either a capital or lower case 'x' in the response. 

Line 4190 returns to 3000 to start a new story. 

Lines 4200 and 4210 look at the screen memory locations where the text is 
displayed. 
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Lines 4220-4270 set up a nested loop. There are 40 letters (0-39) numbered 
'Y' on each of 12 lines numbered 'X.' This prints only the top 12 lines on 
the screen. 

Line 4240 looks for any special Atari characters outside the regular ASCII 
alphabet and adds 32 to any that are found. This will convert the characters 
so they will print on an ASCII printer. 

Line 4245 prints out each character to device #1 opened in line 260. We 
could have written the program to print A$ as it was sent to the screen, but 
this method allows you to read the story first and throw it away without 
wasting paper. There is no error trap to warn users that a printer is not 
hooked up. If you have friends like that, you can easily add in a trap routine. 

Lines 4300-4310 clear the screen and sends the program back for another 
story after printing. 

Line 4990 is a fossil left over from the structure program. It never gets used. 
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5 REM MUSIC TESTING ROUTINE HERE 

10 DIM A$[80},B$(20],C$(20),D$(20) 

15 DIM NA$(30],E$(200),F$(200),G$(20] 

20 GOTO 100:REM DELETE THIS LINE TO TEST MUSIC 

25 NT=0:TM=0 

30 L=15:REM SETS LENGTH OF NOTE 

35 READ NT.TM 

40 IF NT=0THEN RESTORE 

45 SOUND 0,NT,10,10 

50 FOR 1=1 TO (TM*L]:NEXT I 

60 PRINT "NT=";NT;" TM=";TM 

70 SOUND 0,0,0,0 

80 GOTO 30 

85 REM LIST 3900,4000 TO SEE NOTES 

90 REM TYPE 20 GOTO 1 00 TO RUN SCIFI 

100SETCOLOR2,5,14 

110 REM ************************************** 

115REM* * 

120 REM* SCI-FI ATARI 

130 REM* BY HALGLICKSMAN * 

140 REM* APRIL29.1983 * 

150 REM* COPYRIGHT DATAMOST 

155 REM* 

160 REM ************************************** 

170REM 

220A=0:B=0:HG=0:R=0 

250 TRAP 195 

270 OPEN #1,8,0,"P:" 

280 REM GO AROUND PRINTER 

300 GOSUB 1000:REM INTRODUCTION 

310GOSUB2000:REM SETUP 

320 GOSUB 3000:REM PLAY 

330 GOSUB 4000:REM END ROUTINE 

340 POKE 702,64:REM SETS UPPER CASE 

350 END 

1000 REM INTRODUCTION 

1010 POKE 752,1 :REM INVISIBLE CURSOR 

1020 PRINT"}" 

1030 PRINT" 

1040 PRINT" 

1060 PRINT" Science-Fiction Tales " 

1065 PRINT" 

1070 PRINT" from 

1075 PRINT" 
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1080 PRINT" the Electronic Mind 

1090 PRINT" 

11 00 PRINT" 

1140B=256 

1150IFA=BTHEN 1200 

1155 SOUND 0,B,10,10 

11 60 FOR 1=1 TO 10:NEXTI 

1165 SOUND 0.A.1 0,10 

1 1 70 A=A+1 

1175 B=B-1 

11 80 GOTO 1150 

1200 SOUND 0,0,0,0 

1205 PRINT :PRINT 

1210 E$="This program will produce endless funny little science fiction stories 

for your reading pleasure." 
1 230 F$="You may enter characters and places of your choice in the stories in 

order to make them personal." 
1 300 A=0 

1310 IF A=LEN(E$] THEN 1400 
1320 SOUND 0.A.1 0,10 
1 330 A=A+1 
1340 PRINT E$[A,A); 
1350 FOR 1=1 TO 15:NEXTI 
1360 GOTO 1310 
1400 PRINT :PRINT 
1410B=1:A=A+1 

1420IFB=LEN(F$]+1 THEN SOUND 0,0,0,0:GOTO 1500 
1430 SOUND 0.A.1 0,10 
1440 PRINT FS[B.BJ; 
1450A=A-1:B=B+1 
1460 FOR 1=1 TO 10:NEXT I 
1470 GOTO 1420 
1500 PRINT :PRINT 
1510 PRINT "Please log in your name"; 
1 520 POKE 702,0:REM SETS LOWER CASE 
1525 INPUT NA$ 

1530 IF NA$=""THEN NA$="Nameless Blob":PRINT "OK, we will call you ";NA$ 
1535 FOR 1=1 TO 300:NEXT I 
1540 PRINT T:PRINT:PRINT 
1 550 PRINT "The stories can contain:" 
1560 PRINT :PRINT 
1 570 PRINT "A. Your selected names." 
1 580 PRINT :PRINT "B. The programs list of names." 
1590 PRINT :PRINT"C. Both lists of names." 
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1600 PRINT :PRINT "Press A,B or C:" 

1610INPUTG$ 

1620 IF G$="A" OR G$="a" OR G$="" THEN HG=2 

1630IFG$="B" OR G$="b"THEN HG=1:GOTO 220 

1 640 IF G$="C" OR G$="c" THEN HG=0 

1990 RETURN 

2000 REM SETUP 

2010 POKE 752,0:REM VISIBLE CURSOR 

2020 PRINT"}" 

2025 DIM AA$(20],AB$(20),AC$[20],AD$(20),AE$[20] 

2030 DIM BA$(20),BB$(20],BC$(20),BD$(20),BE$[20] 

2040 DIM CA$(20),CB$[20),CC$(20),CD$(20],CE$(20] 

2045 DIM DA$(20),DB$(20),DC$(20],DD$(20),DE$(20] 

2050 PR I NT "Enter five names of characters who will save the day. (20 letters max). 

2055 PRINT"" 

2060 INPUT AA$,AB$,AC$,AD$,AE$ 

2070 PRINT "Enter five names of grizzly monsters who will attack." 

2075 PRINT"" 

2080 INPUT BA$,BB$,BC$,BD$,BE$ 

2082 PRINT"}" 

2085 PRINT "Enter five names of places that will be attacked." 

2090 PRINT"" 

2095 INPUT CA$,CB$,CC$,CD$,CE$ 

21 00 PRINT "Enter the names of five places from which monsters come." 

21 10 PRINT"" 

2120 INPUT DA$,DB$,DC$,DD$,DE$ 

2125 POKE 752,1 

2130 RETURN 

2199 REM HEROS 

2200A$="Tim Conway" 

2202 RETURN 

2205 A$="Big Bird" 

2207 RETURN 

2210A$="The Fonz" 

2212 RETURN 

221 5 A$="Wonder Woman" 

2217 RETURN 

2220 A$="Kareem Abdul Jabar" 

2222 RETURN 

2225 A$="Tom Selleck" 

2227 RETURN 

2230A$="Lucille Ball" 

2232 RETURN 
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2235 A$=AA$ 
2237 RETURN 
2240 A$=AB$ 
2242 RETURN 
2245 A$=AC$ 
2247 RETURN 
2250 A$=AD$ 
2252 RETURN 
2255 A$=AE$ 
2257 RETURN 
2270 A$=AC$ 

2299 REM NAMES OF MONSTERS 

2300 A$="Transylvanian vampires" 
2302 RETURN 

2305 A$="Brazilian killer bees" 

2307 RETURN 

231 A$="Giant green worms" 

2312 RETURN 

2315 A$="Mubbles" 

2317 RETURN 

2320 A$="bug eyed monsters" 

2322 RETURN 

2325 A$="rabid androids" 

2327 RETURN 

2330 A$="fetid zombies" 

2332 RETURN 

2335 A$=BA$ 

2337 RETURN 

2340A$=BB$ 

2342 RETURN 

2345 A$=BC$ 

2347 RETURN 

2350A$=BD$ 

2352 RETURN 

2355 A$=BE$ 

2357 RETURN 

2399 REM PLACES THAT HEROS ARE FROM 

2400 A$="Disneyland" 
2402 RETURN 

2405 A$="Cucumonga" 

2407 RETURN 

2410 A$="The United States" 

2412 RETURN 

2415 A$="Okeefenokee Swamp" 
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2417 RETURN 

2420A$="Tucumcari" 

2422 RETURN 

2425 A$="Mt. St. Helens" 

2427 RETURN 

2430A$="Timbuktu" 

2432 RETURN 

2435 A$=CA$ 

2437 RETURN 

2440A$=CB$ 

2442 RETURN 

2445 A$=CC$ 

2447 RETURN 

2450A$=CD$ 

2452 RETURN 

2455 A$=CE$ 

2457 RETURN 

2439 REM PLACES THAT MONSTERS ARE FROM 

2500A$="PlanetXX" 

2502 RETURN 

2505 A$="Persepeon" 

2507 RETURN 

251 A$="Bondegarra" 

2512 RETURN 

2515 A$="under the bed" 

2517 RETURN 

2520 A$="the mausoleum" 

2522 RETURN 

2525 A$="downtown Burbank" 

2527 RETURN 

2530 A$="The I.R.S." 

2532 RETURN 

2535 A$=DA$ 

2537 RETURN 

2540A$=DB$ 

2542 RETURN 

2545 A$=DC$ 

2547 RETURN 

2550A$=DD$ 

2552 RETURN 

2555 A$=DE$ 

2557 RETURN 

3000 REM PLAY 
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3005SETCOLOR 2,5,0 

3010 R=0:S=0 

3020 PRINT"}" 

3200 R=INT(RND(0)*5]+1 

3205 ON R GOTO 3210,3215,3220,3225,3230 

3210 PRINT "######### News Bulletin!!!* ########":GOTO 3250 

3215 PRINT"######### Flash! Flash! Flash!########":GOTO 3250 

3220 PRINT"######### Attention Earth!! #########":GOTO 3250 

3225 PR|NT"###### Calling All Earthlings!######":GOTO 3250 

3230 PRINT" ###### Now Hear This!!######" 

3250 PRINT :PRINT 

3255 R=5*(INT[RND(0}*((12*(HG=0]]+[7*(HG=]]+(5*[HG=2))])+(7*(HG=2)]) 

3260GOSUB(2400+R) 

3270 GOSUB 3800 

3300 R=INT[RND[0)*5)+1 

3305 ON R GOTO 3310,3315,3320,3325,3330 

331 A$=" was attacked at dawn by ":GOSUB 3B00 

3312 GOTO 3350 

331 5 A$=" has been surrounded and infiltrated by ":GOSUB 3800 

3317 GOTO 3350 

3320 A$=" appears to be under attack from ":GOSUB 3800 

3322 GOTO 3350 

3325 A$=" has been whomped and stomped by ":GOSUB 3800 

3327 GOTO 3350 

3330 A$=" was rudely jarred awake by ":GOSUB 3800 

3350 R=(INT(RND(0)*(7+S))]*5 

3360 GOSUB (2300+R) 

3370 GOSUB 3800 

3400 R=INT(RND(0]*5]+1 

3405 ON R GOTO 3410,3415,3420,3425,3430 

341 A$=" from the lowest levels of ":GOSUB 3800 

3412 GOTO 3450 

341 5 A$=" out of the vastness of ":GOSUB 3800 

3417 GOTO 3450 

3420 A$=" descended from ":GOSUB 3800 

3422 GOTO 3450 

3425 A$=" from the greasy pits of ":GOSUB 3800 

3427 GOTO 3450 

3430 A$=" who oozed away from ":GOSUB 3800 

3450 R=5*(INT(RND(0]*([1 2*(HG=0))+(7*(HG=1 ))+(5*[HG=2))])+(7*(HG=2]]] 

3460 GOSUB [2500+R] 

3470 GOSUB 3800 

3500 R=5*(INT(RND(0)*((1 2*(HG=0)]+(7*(HG=1 ))+[5*[HG=2])]]+(7*(HG=2])) 

3505 A$=". Our hero ":GOSUB 3800 
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3510GOSUB(2200+R] 

3520 GOSUB 3800 

3550 R=INT(RND(0]*5)+1 

3555 ON R GOTO 3560,3565,35703575,3580 

3560 A$=" dropped dozens of banana peels.":GOSUB 3800 

3562 GOTO 3600 

3565 A$=" tried to tie their shoelaces together. ":GOSUB 3800 

3567 GOTO 3600 

3570 A$=" told their mothers they were naughty.":GOSUB 3800 

3572 GOTO 3600 

3575 A$=" used a huge pea shooter against them.":GOSUB 3800 

3577 GOTO 3600 

3580 A$=" deployed tactical nuclear weapons.":GOSUB 3800 

3600 R=INT(RND(0)*5]+1 

3605 ON R GOTO 3610,3615,3620,3625,3630 

361 A$=" No use! They kept on coming just like a lava flow. ":GOSUB 3800 

3612 GOTO 3650 

361 5 A$=" In spite of this heroism they were not deterred. ":GOSUB 3800 

3617 GOTO 3650 

3620 A$=" Nothing slowed them down. ":GOSUB 3800 

3622 GOTO 3650 

3625 A$=" However those baddies couldn't be stopped. ":GOSUB 3800 

3627 GOTO 3650 

3630 A$=" 'Ha Ha' they yelled and ran even faster. ":GOSUB 3800 

3650 R=5*(INT(RND(0)*((1 2*(HG=0]]+[7*(HG=1 ))+(5*(HG=2)])]+(7*(HG=2)]) 

3660 GOSUB (2200+R) 

3670 GOSUB 3800 

3700 R=INT(RND[0]*5]+1 

3705 ON R GOTO 3710,3715,3720,3725,3730 

3710 A$=" held up a mojo and it was GAME OVER for the baddies.":GOSUB 3800 

3712 GOTO 4080 

371 5 A$=" Spilled toxic waste in their path, so they ran off.":GOSUB 3800 

3717 GOTO 4080 

3720 A$=" hired them to make sci-fi movies.":GOSUB 3800 

3722 GOTO 4080 

3725 A$=" demanded their union cards so they left the set.":GOSUB 3800 

3727 GOTO 4080 

3730 A$=" held up a mirror and neutralized them.":GOSUB 3800 

3735 GOTO 4080 

3800 REM PRINT OUT AND PLAY MUSIC 

3805 IF A$="" THEN A$=NA$ 

3810 PT=1:NT=0 

3815 PRINT A$(PT,PT]; 
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3820 READ NT.TM 

3825 SOUND 0.NT.1 0,10 

3830 IF PEEK(85)>30 AND A$(PT,PT)=" " THEN PRINT 

3835 IF NT=0THEN RESTORE 

3840 PT=PT+1 

3845 FOR 1=1 TO (TM*2):NEXT I 

3850 SOUND 0,0,0,0 

3855 IF PT<=LEN(A$) THEN GOTO 381 5 

3860 RETURN 

3900 REM MUSIC NOTES HERE 

391 DATA 1 28,1 ,1 28,1 ,1 28,2,1 28,1 ,1 28,1 ,1 28,2,1 28,1 ,1 28,1 ,96,2,85,2, 

76,2,128,1,128,1,128,2,128,1,128,1 
3920 DATA 96,2,76,1,76,1,85,2,102,2,128,2,128,1,128,1,128,2,128,1,128,1, 

1 28,2,1 28,1 ,1 28,1 ,96,2,85,2,76,2,96,1 
3925 DATA 76,1 ,64,4,64,1 ,72,1 ,76,1 ,85,1 ,96,2,76,2,96,2,1 28,1 ,1 28,1 ,1 28,2, 

128,1,128,1,128,2,128,1,128,1 
3930 DATA 96,2,85,2,76,2,1 28,1 ,1 28,1 ,1 28,2,1 28,1 ,1 28,1 ,96,2,76,1 ,76,1 ,85, 

2,1 02,2,1 28,2,1 28,1 ,1 28,1 ,1 28,2 
3935 DATA 1 28,1 ,1 28,1 ,1 28,2,1 28,1 ,1 28,1 ,96,2,85,2,76,2,96,1 ,76,1 ,64,4 
3940 DATA 64,1 ,72,1 ,76,1 ,85,1 ,96,2,76,2,96,2,76,1 ,76,1 ,76,2,76,1 ,76,1 ,76,2, 

76,1 ,76,1 ,76,2,57,2,76,2,57,2,76,2 
3950 DATA 57,2,76,2,85,2,96,2,1 02,2,1 1 4,2,76,1 ,76,1 ,76,2,76,1 ,76,1 ,76,2,76, 

1,76,1,76,2,57,2,76,2,57,2 
3960 DATA 76,2,57,2,64,2,68,2,64,2,68,2,64,2,76,1 ,76,1 ,76,2,76,1 ,76,1 ,76,2, 

76,1 ,76,1 ,76,2,57,2,76,2,57,2 
3970 DATA 76,2,57,2,76,2,85,2,96,2,1 02,2,1 1 4,2,76,1 ,76,1 ,76,2,76,1 ,76,1 ,76, 

2,76,1 ,76,1 ,76,2,57,2,76,2,57,2 
3980 DATA 76,2,57,2,64,2,68,2,64,6 
3995 DATA 0,0 
4000 REM END ROUTINE 
4010 PRINT"}" 

4020 PRINT "############ #ADIOS# ######### ######" 
4030 RETURN 
4080 SOUND 0,0,0,0 
4090 PRINT :PRINT 

4100 PRINT"Had enough of our little yarns?" 
41 1 PRINT "Press 'p' to print the story" 
4115 PRINT "Press "x 1 to exit,[RETURN] to go on." 
4120 INPUT G$ 
4130 IF G$="" THEN G$="NO" 

4140IFG$(1,1)="P" OR G$(1,1]="p"THEN GOTO 4200 
4170 IF G$="" THEN G$="NO" 

41 80 IF G$[1 ,1 ]="X" OR G$[1 ,1 )="x" THEN PRINT "}";:RETURN 
41 90 GOTO 3000 
4200A1=PEEK(561)*256+PEEK(560] 
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421 A2=PEEK(A1 +5)*256+PEEK(A1 +4) 

4220 FOR X=0 TO 12 

4222 REM TO PRINT A FULL SCREEN CHANGE 1 2 TO 23 

4230 FOR Y=0 TO 39 

4240 KS=PEEK(A2]:IF KS<97 THEN KS=KS+32 

4245 PRINT #1;CHR$(KS); 

4250 A2=A2+1 

4260 NEXT Y:PRINT#1 

4270 NEXT X 

4300 PRINT"}" 

4310 GOTO 3000 

4990 RETURN 
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Atari 
Learner 



Your Atari Home Computer can learn to play a guessing game with you. 
Like all computers, your Atari starts out with an open mind. Atari Learner is 
a type of data base program that will accumulate data until it knows 50 
objects and can tell the difference between them by asking appropriate 
questions. Atari BASIC does not have built-in string arrays. That means you 
cannot say A$(l)="cat" and A$(2)="banana." That would be too easy. We 
have to set up pseudo arrays by multiplying the number of elements by a 
fixed length number of characters in each element. This is done in the DIM 
statements at 1 100 to 11 30. The number of elements is set to 50 in line 
1060 and assigned to the variable MX. In line 1 100 the string that will hold 
the questions [QU$] is multiplied by MX times 40 +1. The extra 1 is there 
because there is no 0th array and the counter must start with one. The 
program does not test for string length and throw away extra spaces because 
each word and question is printed on its own line and the extra blank spaces 
do not show. The file is a straight sequential file, but the elements are of 
fixed length like a random access file. You could use a program like this to 
write a menu planner or other data base. If you have a disk drive be sure to 
initialize an empty disk first for saving files. You will not be able to initialize 
a disk while a program is running. 
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1000 REM 

1010REM * 

1020 REM * 

1030 REM * 

1040 REM 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 

1300 

1310 

1320 

1330 

1340 

1350 

1360 

1370 

1380 

1390 

1400 

1410 

1420 

1430 



* * 

* 
* 



ATARI LEARNER 



REM 

MX=50 

DIM A$(4),TA$(4],YN$(4],GU$(40) 

DIM RI(MX),WR(MX),FN$(20),Q1$(41] 

DIM L0(MX],L1(MX],L2[MX] 

DIM QU$[MX*40+1] 

DIM RA$[MX*40+1) 

DIM WA$(MX*40+1] 

DIM NA$(MX*40+1) 

GOTO 1260 

PRINT"}"; 

POSITION 104 

PRINT"*** ATARI LEARNER ***" 

POSITION 2,8 

RETURN 

Q1 $=QU$(LI*40+1 ,LI*40+1 +L0(LI)) 

RETURN 

GU$=RA$(LI*40+1 ,LI*40+1 +L1 [LI]] 

RETURN 

GU$=WA$(LI*40+1 ,LI*40+1 +L2(LI)) 

RETURN 

GRAPHICS 

GOSUB 1150 

PRINT "This is a game that has the ability" 

PRINT "to learn. It will attempt to guess" 

PRINT "the name of an object that you pick" 

PRINT "at random." 

PRINT 

PRINT "Whenever you stump the computer, you' 

PRINT "are asked about the object you" 

PRINT "selected. By compiling this" 

PRINT "information, the computer learns." 

PRINT 

PRINT 

PRINT "enter 'STOP' when you are done." 

POSITION 2,23 

PRINT "Press 'RETURN' when ready to play"; 

REM 

QU$(41)="Does it move along the ground" 
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1440L0(1)=28 

1450RA$(41)="Car" 

14B0L1(1]=2 

1470WA$(41]="House" 

1480L2(1]=4 

1490RI(1J=0 

1500WR(1)=0 

1510 FR=2 

1520 FOR LP=2TO MX 

1530L0(LP]=0 

1540L1(LP)=0 

1550L2[LP)=0 

1560RI(LP]=0 

1570WR(LP]=0 

1580 NEXT LP 

1590 INPUT A$ 

1600 REM 

1610 PRINT"}" 

1620 POSITION 2,4 

1 630 PRINT "Would you like to load a previously" 

1 640 PRINT "saved file of data Y/N "; 

1650 INPUT A$ 

1660 IF LEN(A$]THEN IF A$(1 ,1 ]<>"Y" THEN 2030 

1670 PRINT 

1680 PRINT 

1690 PRINT "The devices are :" 

1 700 PRINT " C: for cassette" 

1 71 PRINT " D: for diskette" 

1720 PRINT 

1730 PRINT "Enter:" 

1 740 PRINT " Device:Filename.Ext "; 

1750 INPUT FN$ 

1760 IF LEN[FN$)<3THEN 1610 

1770 OPEN #1,4,0,FN$ 

1780 INPUT #1;FR 

1790GET#1,I 

1800 FOR L=1 TO I 

1810GET#1,A 

1820RA$(L,L]=CHR$[A] 

1830 NEXT L 

1840GET#1,I 

1850 FOR L=1 TO I 

1860GET#1,A 

1870WA$(L,L]=CHR$(A) 
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1880 NEXT L 

1890GET#1,I 

1900 FOR L=1 TO I 

1910GET#1,A 

1920QU$(L,L]=CHR$[A] 

1930 NEXT L 

1940 FOR LP=1 TO FR 

1950 INPUT #1;A:RI[LP)=A 

1960 INPUT #1 ;A:WR(LP]=A 

1970 INPUT #1;A:L0[LP)=A 

1980 INPUT #1;A:L1[LP)=A 

1990 INPUT #1 ;A:L2[LP)=A 

2000 NEXT LP 

2010 CLOSE #1 

2020 REM 

2030 REM PLAY THE GAME 

2040 REM 

2050 Ll=1 

20B0GOSUB 1150 

2070 PRINT "I know of ";FR;" objects . . ." 

2080 PRINT 

2090GOSUB 1200:REM GETQ1S 

2100 PRINT Q1$;""; 

2110INPUTAS 

2120 IF NOT LEN[A$) THEN 2100 

2130 IF A$(1,1)="Y" THEN 2190 

2140 IF A$(1,1)="N" THEN 2220 

2150 IF A$(1,1]="S" THEN 2740 

21 60 PRINT "Please answer Yes or No" 

2170 PRINT 

21 80 GOTO 21 00 

2190 IF RI[LI] THEN LI=RI(LI):GOTO 2090 

2200 GOSUB 1 220:REM GET GU$ FROM RA$ 

2210 GOTO 2240 

2220 IF WR[LI] THEN LI=WR(LI):GOTO 2090 

2230 GOSUB 1240:REM GET GU$ FROM WAS 

2240 PRINT "Is it a ";GU$;""; 

2250 INPUT TA$ 

2260 IF NOT LEN(TAS) THEN 2390 

2270 IF TA$(1 ,1 )< >"Y" THEN 2390 

2280 PRINT 

2290 PRINT 

2300 PRINT "I GOT IT!!!" 

2310 Y=-100 
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2320 FOR PA=1 TO 400 

2330 SOUND 0,ABS(Y],8,5 

2340 Y=Y+2 

2350 IF Y>1 00 THEN Y=-1 00 

2360 NEXT PA 

2370 SOUND 0,0,0,0 

2380 GOTO 2050 

2390 IF TA$(1,1)="S" THEN 2740 

2400 PRINT 

2410 PRINT 

2420 PRINT 

2430 PRINT "What is the object "; 

2440 INPUT NA$ 

2450 IF FR<=MX THEN 2530 

2460 PRINT "Sorry I can't remember that one." 

2470 PRINT "My memory seems to be full" 

2480 SOUND 0,1 30,1 2,5 

2490 FOR PA=1 TO 300 

2500 NEXT PA 

2510 SOUND 0,0,0,0 

2520 GOTO 2050 

2530 PRINT 

2540 PRINT "What is a question I would use to" 

2550 PRINT "tell the difference between a" 

2560 PRINT GU$;" and a ";NA$ 

2570 INPUT Q1$ 

2580 IF NOT LEN(Q1$) THEN 2530 

2590 PRINT "For ";NA$;" the answer is what Y/N "; 

2600 INPUT YN$ 

2610 IF NOT LEN(YN$] THEN 2590 

2620 IF YN$(1,1)< >"Y" AND YN$(1,1)< >"N" THEN 2590 

2630 IF A$[1,1)="Y" THEN RI(LI]=FR 

2640 IF A$[1,1]="N" THEN WR(LI]=FR 

2650 LI=FR 

2660 FR=FR+1 

2670 QU$(LI*40+1 )=Q1 $ 

2680L0(LI]=LEN(Q1$]-1 

2690 PA=LI*40+1 

2700 IF YN$(1 ,1 )="Y" THEN RA$(PA)=NA$:L1 (LI]=LEN(NA$]-1 :WA$(PA)=GU$ 

:L2[LI)=LEN(GU$)-1 
271 IF YN$(1 ,1 ]="N" THEN RA$[PA]=GU$:L1 (LI)=LEN(GU$]-1 :WA$(PA)=NA$ 

:L2[LI]=LEN(NA$]-1 
2720 GOTO 2050 
2730 REM 



V. 
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2740GOSUB 1150 

2750 PRINT "Would you like to save the file Y/N"; 

2760 INPUT A$ 

2770 IF NOT LEN[A$] THEN 2820 

2780 IF A$(1,1]="N" THEN 2820 

2790GOSUB 1150 

2800 PRINT "Last file used was ";FN$ 

2810 PRINT 

2820 PRINT "The devices are :" 

2830 PRINT " C: for cassette" 

2840 PRINT " D: for diskette" 

2850 PRINT 

2860 PRINT "Enter:" 

2870 PRINT " Device:Filename.Ext "; 

2880 INPUT FN$ 

2890 IF LEN(FN$)<3 THEN 2740 

2900 OPEN #1,8,0,FN$ 

2910 PRINT #1;FR 

2920 PUT #1,LEN[RA$] 

2930 FOR L=1 TO LEN(RA$] 

2940 PUT #1,ASC[RA$[L,L)] 

2950 NEXT L 

2960 PUT #1,LEN(WA$] 

2970 FOR L=1 TO LEN[WA$] 

2980 PUT #1,ASC(WA$[L,L]) 

2990 NEXT L 

3000 PUT #1,LEN(QU$) 

3010 FOR L=1 TO LEN(QU$) 

3020 PUT #1,ASC(QU$(L,L)] 

3030 NEXT L 

3040 FOR LP=1 TO FR 

3050 PRINT #1;RI(LP] 

3060 PRINT #1;WR[LP) 

3070 PRINT #1;L0(LP] 

3080 PRINT #1;L1(LP] 

3090 PRINT #1;L2(LP) 

3100 NEXT LP 

3110CLOSE #1 

3120 END 




rttSfnSi 
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Do you believe in biorhythms? How about Santa Claus, or the Tooth Fairy? 
We do not take an official position on the veracity of any of these worthwhile 
institutions. What is offered in this program is an example of an excellent 
date formating routine that could form the basis of a mortgage amortization 
program or other heavy duty calendar based calculator. The beautiful curved 
lines of the biorhythm printout are generated by the built-in sine wave 
functions of Atari BASIC. You can demonstrate the SIN function by putting 
line 2060 into the "basement workshop" that is described in the introduction. 
Biorhythms is the sample program used in the introduction to expain how 
to tinker with variables. The print statements are all PRINT #1, which 
means print to a device. In the beginning of the program you are asked to 
chose to print to the screen (E:) or to a printer (P:). Lines 2090 to 2110 fills 
a string (A$) with 21 blank spaces. Line 2120 puts a straight line in the 
middle of the string (11,11). Lines 2130 to 2200 figures the proper position 
for the physical (P), cognitive (C), and emotional (E) to be printed. If 



in 



one letter comes on top of another letter a "*" is printed for the conjunction of 
the two cycles. The remaining print statements carefully space the month 
and day calculations into neat columns. 
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1000 
1010 

1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 



REM ************************************ 
REM * * 

REM* BIORHYTHM * 
REM * 
REM ************************************* 

REM 

REM 

REM DIMENSION VARIABLES 

DIM OT$[10),A(12),B(12],T(3) 

DIM A$[21),C$(36],N$(20),T$(20] 

REM 

RAD :REM WORK IN RADIANS 

GRAPHICS 

PRINT"}" 

POSITION 2,4 

PRINT"*** BIORHYTHM ***" 

POSITION 2,7 

PRINT "THIS PROGRAM WILL GRAPH OUT YOUR" 

UNIQUE BIORHYTHMIC CYCLES, EITHER ON" 
THE SCREEN OR TO A PRINTER" 




PRINT 
PRINT 
PRINT 
PRINT 
PRINT 



E: FOR SCREEN" 

P: FOR PRINTER" 
REM INPUT OUTPUT DEVICE 
INPUT OT$ 

IF OT$< >"E:" AND OT$< >"P:" THEN 1 1 30 
REM 

REM SETUP 
REM 

RESTORE 

C$="JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC" 
FOR 1=1 TO 12 
READ A:A[I)=A 
NEXT I 

FOR 1=1 TO 12 
READ A:B[I)=A 
NEXT I 

DATA 0,31 ,59,90,1 20,1 51 ,1 81 ,21 2,243,273,304,334 
DATA 31 ,28,31 ,30,31 ,30,31 ,31 ,30,31 ,30,31 
REM 

REM ** PLAYGAME 
REM 
PRINT"}" 
POSITION 12,4 



J 
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1440 PRINT"*** BIORHYTHM ***" 

1450 PRINT 

1 460 PRINT "WHAT IS YOUR NAME. "; 

1470 INPUT N$ 

1480 PRINT 

1490 PRINT "WHAT IS YOUR BIRTHDATE." 

1 500 PRINT "MM.DD.YYYY "; 

1510 INPUT M.D.Y 

1520 IF Y<1 00 THEN Y= Y+1 900 

1530ER=0 

1540 IF M<1 OR M>12THEN PRINT "INCORRECT MONTH":ER= 

1 550 IF D<1 OR D>B[M) THEN PRINT "INCORRECT DAY":ER=1 

1 560 IF Y<1 900 OR Y>21 00 THEN PRINT "INCORRECT YEAR ":ER=1 

1570 IF ERTHEN 1490 

1580 PRINT 

1 590 PRINT "WHAT IS THE CHART START DATE" 

1600 PRINT "MM.DD.YYYY"; 

1610 INPUT M1.D0.Y1 

1620 IF YK100 THEN Y1=Y1+1900 

1630ER=0 

1640IFMK1 OR M1>12THEN PRINT "INCORRECT MONTH":ER=1 

1650 IF D0<1 OR D0>B(M1) THEN PRINT "INCORRECT DAY":ER=1 

1660 IF YK1900 OR Y1>2100THEN PRINT "INCORRECT YEAR ":ER=1 

1670 IF ERTHEN 1610 

1680 PRINT 

1 690 PRINT "HOW MANY DAYS "; 

1700 INPUT Z 

1710IFZ<1 ORZ<>INT[Z]THEN 1680 

1720W=D0 

1730W1=M1 

1740W2=Y1 

1750W3=Z 

1760J=A(M]+D 

1770 D1=365-J+([J<=60) AND (Y/4=INT(Y/4))) 

1 780 D2=365*(Y1 -[Y+1 )) 

1 790 E=0 

1800 FOR T= Y+1 TO Y1-1 

1810 E=E+(T/4=INT(T/4)) 

1820 NEXT T 

1830D3=A(M1)+D0 

1840 D3=D3+((Y/4=INT(Y/4)j AND (D3>=60)) 

1850D4=D1+D2+D3+E 

1860 IF D4<0THEN PRINT "START IS BEFORE BIRTHDATE":GOTO 1590 
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1870 P1 = D4-INT(D4/23)*23:REM 23 DAY 

1880 E1=D4-INT(D4/28)*28:REM 28 DAY 

1890 C1=D4-INT(D4/33)*33:REM 33 DAY 

1900 PRINT"}" 

1910 PRINT "PRINTING CHART" 

1920 PRINT 

1930 CLOSE #1 

1940 OPEN #1,8,0,OT$ 

1950 PRINT #1;" BIORHYTHM CYCLES" 

1 960 PRINT # 1 ;" FOR " 

1970 PRINT #1;" ";N$ 

1980 PRINT #1;C$(3*M-2,3*M];"";D; 

1 990 PRINT #1;",";Y 

2000 PRINT #1;C$(3*M1-2,3*M1 

2010 PRINT #1;Y1;" (-) (0) (+)" 

2020 FOR T=1 TOZ 

2030 P2=(P1+T)-INT((P1+T)/23]*23 

2040 E2=(E1+T)-INT[(E1+T]/28]*28 

2050 C2=(C1+T)-INT([C1+T)/33)*33 

2060 P3=INT(1 1.5+1 0*SIN(P2*6.283/23]) 

2070 E3=INT(1 1 .5+1 0*SIN(E2*6.283/28)] 

2080 C3=INT(1 1 .5+1 0*SIN(C2*6.283/33]] 

2090 FOR 1=1 TO 21 

2100A$[I,I)="" 

21 10 NEXT I 

2120A$(11,11]=":" 

2130A$(P3,P3]="P" 

2140 IF E3=P3THEN A$(E3,E3)="*":GOTO 21 60 

2150A$(E3,E3)="E" 

21 60 IF C3=E3 OR C3=P3 THEN 21 80 

21 70 A$(C3,C3]="C":GOTO 21 90 

2180A$(C3,C3)="*" 

2190 IF D0=1 THEN PRINT #1;C$(3 

2200 PRINT #1;" "; 

2210T$=STR$(D0) 

2220 IF LEN(T$)=1 THEN PRINT #1;" "; 

2230 IF LEN(T$)=2THEN PRINT #1;""; 

2240 PRINT #1;T$;" "; 

2250 PRINT #1;A$ 

2260 IF Y1-([INT(Y1/4])*4)=0 THEN B(2)=29 

2270 D0=D0+1:IF D0>B(M1] THEN D0=1 :M1=M1+1 

2280 IF M1>12 THEN M1=1:Y1=Y1+1 

2290 NEXT T 

2300 IF OT$="E:"THEN FOR PA=1 TO 1000:NEXT PA 

2310 GOTO 1130 




•M1-2,3*M1);" ";:GOTO 2210 
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Craps 




Here at last is a complete simulation of Las Vegas, including touting, insults, 
and the certainty of ending up broke! "Just double-up brother, your luck is 
bound to change!" One problem about doubling your bet every time you 
lose, is if you get a run of bad luck the Bank of England couldn't save you. 
The dice aren't really loaded as the screen suggests. You can see for yourself 
that the dice are "rolled" by the random number statements in lines 1150 
and 1160. You can test your 'dice' with a routine that adds up occurrences 
of each number. You will find that certain numbers may be favored, but 
when you run the test again a different group of numbers will be favored, 
just like real life! 

100X=INT(6*RND(0)+1] 
110 IF X=1 THEN A=A+1 
120 IF X=2 THEN B=B+1 
130 IF X=3 THEN C=C+1 
140 IF X=4 THEN D=D+1 
150 IF X=5 THEN E=E+1 
160 IF X=6 THEN F=F+1 
170 POSITION 2,5 
180 PRINT A.B.C 
190 PRINT 
200 PRINT D,E,F 
210 GOTO 100 

In our version of craps a series of GOSUBs branch to the appropriate 
section where the dice are drawn in character graphics. The dice will appear 
on your screen as you type in the correct control characters, but they will 
not appear on a listing sent to a printer. Line 1260 is a POKE that sets the 
left hand margin to line up the printing of the dice. The margin is first read 
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by a PEEK and then moved 10 columns over for the right-hand die. This 
allows the same set of dice images to be printed side-by-side. Line 1190 is a 
GOSUB to a sound routine. Lines 1200 to 1350 are a series of IF GOSUBs 
the select the appropriate dice to draw. Lines 1400 to 1430 add the dice 
together and sends the program off to the appropriate sections that announce 
that you have won, crapped out, or have a point to play. Lines 1430 to 1710 
roll the dice again if you have to roll a number to match the dice you rolled 
the first time. In lines 1690 to 1710 there is a test to see if you have made 
your point or crapped out. 






1000 PRINT"} COMPUTER CRAPS" 

I 01 S=200 

1020 DIM S[500],B[500),A$(20],B$(20],C$(20) 

1030 PRINT "LETS PLAY CRAPS. I ROLL THE DICE." 

1040 PRINT "YOU KNOW THE RULES— -YOU CAN'T WIN" 

1 050 PRINT " YOU HAVE $200 TO START" 

1 060 PRINT "PRESS 'RETURN' TO START THE GAME"; 

1070 INPUT B$ 

1080 IF S<=0 THEN 2350 

1090 IF B>STHEN 2350 

1100IF B<51 THEN 1150 

1110 PRINT"}" 

I I 20 PRINT "PLACE AN AUTHORIZED BET.PLEASE! TABLE LIMIT IS $50." 
1130INPUTB 

1140 GOTO 1100 

1 150 LET D1=INT(B*RND(0)+1) 

1 1 60 LET D2=INT(6*RND(0]+1 ] 

11 70 PRINT"}" 

1180D=D1+D2 

11 90 GOSUB 2400 

1200 IF D1=1 THEN GOSUB 2610 

1210 IF D1=2THEN GOSUB 2690 

1220 IF D1=3 THEN GOSUB 2770 

1230 IF D1=4THEN GOSUB 2850 

1240 IF D1=5 THEN GOSUB 2930 

1250 IF D1=6 THEN GOSUB 3010 

1260MAR=PEEK(82] 

1270 POKE 82.MAR+10 

1280 POSITION MAR+10,1 

1290 IF D2=1 THEN GOSUB 2610 

1 300 IF D2=2 THEN GOSUB 2690 

1310 IF D2=3 THEN GOSUB 2770 

1320 IF D2=4 THEN GOSUB 2850 

1 330 IF D2=5 THEN GOSUB 2930 
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1340 IF D2=B THEN GOSUB 3010 

1350 POKE 82.MAR 

1360 PRINT 

1370 PRINT "YOU ROLLED A ";D1 ;" AND A ";D2;" WHICH IS ";D 

1380 PRINT 

1390 PRINT 

1400 IF D1+D2<4 THEN 1970 

1410 IF D1+D2=12 THEN 1970 

1420 IF D1+D2=7 THEN 1730 

1430 IF D1+D2=11 THEN 1820 

1440 D1=INT(6*RND(0]+1) 

1450D2=INT[6*RND(0)+1] 

1460 GOSUB 2400 

1470 PRINT"}" 

1480 IF D1 = 1 THEN GOSUB 2610 

1490 IF D1=2 THEN GOSUB 2690 

1500 IF D1=3THEN GOSUB 2770 

1510 IF D1=4THEN GOSUB 2850 

1520 IF D1=5 THEN GOSUB 2930 

1530 IF D1=6THEN GOSUB 3010 

1540MAR=PEEK(82] 

1550 POKE 82.MAR+10 

1560 POSITION MAR+10,1 

1570 IF D2=1 THEN GOSUB 2610 

1580 IF D2=2 THEN GOSUB 2690 

1590 IF D2=3 THEN GOSUB 2770 

1 600 IF D2=4 THEN GOSUB 2850 

1610 IF D2=5 THEN GOSUB 2930 

1620 IF D2=6 THEN GOSUB 3010 

1630 POKE 82.MAR 

1640 PRINT 

1650 PRINT "YOU ROLLED A ";D1 ;" AND ";D2; 

1660 PRINT" 

1 670 PRINT "YOU WANT A ";D;" THE POINT" 

1680 PRINT 

1690 IF D1+D2=7 THEN 2100 

1700 IF D1+D2=D THEN 2200 

1710 IF D1+D2< >D THEN 1440 

1 720 PRINT "YOU ROLLED A ";D1 ;" AND A ";D2;" WHICH IS ";D 

1730 GOSUB 2470 

1 740 S=S+B 

1750 PRINT "A LUCKY SEVEN! YOU WIN! YOU NOW HAVE $";S; 

HOW MUCH DO YOU BET "; 
1760 INPUT B 
1770 PRINT 
1780 PRINT 
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1790 PRINT "PRESS RETURN TO ROLL THE BONES AGAIN"; 

1800 INPUT B$ 

1810 GOTO 1080 

1820 GOSUB 2470 

1830 PRINT "YOU ROLLED A NATURAL WINNER!" 

1840 PRINT 

1850 PRINT "PIT BOSS.SOME NEW DICE" 

1860 PRINT 

1870 PRINT 

1880 PRINT 

1890S=S+B 

1 900 PRINT "YOU NOW HAVE $";S;" HOW MUCH DO YOU BET" 

1910INPUTB 

1920 PRINT 

1930 PRINT 

1940 PRINT "PRESS RETURN TO CONTINUE.SHOOTER"; 

1950 INPUT A$ 

1960 GOTO 1080 

1 970 GOSUB 2530 

1980 PRINT 

1990 PRINT "YOU ROLLED A CRAPS - THE NAME OFTHE GAME -- CHUCK 

IT IN-I KNOW YOU'LL WIN " 
2000S=S-B 
2010 PRINT 
2020 PRINT 

2030 PRINT "YOU NOW HAVE $";S;" PLEASE PLACE YOUR BET"; 
2040 INPUT B 
2050 PRINT 
2060 PRINT 

2070 PRINT"PRESS RETURN TO CONTINUE.SHOOTER"; 
2080 INPUT B$ 
2090 GOTO 1080 
21 00 GOSUB 2530 
21 10 PRINT "YOU LOSE BECAUSE YOU ROLLED A7- A 

LOSER -- SORRY -- DOUBLE UP AND CATCH UP" 
2120S=S-B 

2130 PRINT "YOUR BANKROLL HAS DWINDLED TO $";S 
2140 PRINT "DOUBLE YOUR BET NOW. I'LL SLIP YOU" 
2150 PRINT "SOME CROOKED DICE.fTHIS PROGRAM IS RIGGED] 

PLACE BET NOW"; 
2160 INPUT B 

2170 PRINT "PRESS RETURN TO CONTINUE.SHOOTER"; 
2180 INPUT C$ 
21 90 GOTO 1080 
2200 GOSUB 2470 
2210 PRINT 
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2220 PRINT " YOU ROLLED A ";D1 ;" AND A ";D2 

2230 PRINT " WHICH IS ";D;" THE POINT-A WINNER!" 

2240 PRINT 

2250 PRINT 

2260 S=S+B 

2270 PRINT "YOUR BANKROLL NOW IS $";S;" MAKE YOUR LUCKY BET"; 

2280 INPUT B$ 

2290 B=VAL(B$] 

2300 PRINT 

2310 PRINT 

2320 PRINT "PRESS RETURN - YOU'RE HOT" 

2330 INPUT C$ 

2340 GOTO 1080 

2350 PRINT "CAN YOU GET MORE MONEY"; 

2360 INPUT C$ 

2370 IF C$[1,1]="N" THEN PRINT "GO HOME,SLOB":END 

2380 IF C$(1,1)="Y" THEN PRINT "YOUR CREDIT IS GOOD HERE FOR $500" 

:CLR:GOTO 1010 
2390 END 

2400 FOR W=1 TO 8 
2410 FOR V=14T0 STEP -2 
2420 SOUND 0,243,6,V 
2430 SOUND 1.B.10.V 
2440 NEXT V 
2450 NEXT W 
2460 RETURN 

2470 FOR V=1 4 TO STEP -2 
2480 FOR W=1 TO 25 
2490 SOUND 0,60,1 0,V 
2500 NEXTW 
2510 NEXT V 
2520 RETURN 

2530 FOR V=1 5 TO STEP -5 
2540 FOR N=220 TO 240 STEP 5 
2550 FOR W=1 TO 10 
2560 SOUND 0N.10V 
2570 NEXTW 
2580 NEXTN 
2590 NEXT V 
2600 RETURN 

2610 PRINT "[N][N][N][N][N]" 
2620 PRINT "[V] [B]" 

2630 PRINT "[V] [B]" 

2640 PRINT "[V] [T] [B]" 
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2650 PRINT' 
2660 PRINT' 
2670 PRINT" 
2680 RETURN 
2690 PRINT 
2700 PRINT 
2710 PRINT 
2720 PRINT 
2730 PRINT 
2740 PRINT 
2750 PRINT 
2760 RETURN 
2770 PRINT 
2780 PRINT 
2790 PRINT 
2800 PRINT 
2810 PRINT 
2820 PRINT 
2830 PRINT 
2840 RETURN 
2850 PRINT 
2860 PRINT 
2870 PRINT 
2880 PRINT 
2890 PRINT 
2900 PRINT 
2910 PRINT 
2920 RETURN 
2930 PRINT 
2940 PRINT 
2950 PRINT 
2960 PRINT 
2970 PRINT 
2980 PRINT 
2990 PRINT 
3000 RETURN 
3010 PRINT 
3020 PRINT 
3030 PRINT 
3040 PRINT 
3050 PRINT 
3060 PRINT 
3070 PRINT 
3080 RETURN 



V] [B]" 

V] [B]" 

M][M][M][M][M]" 

N][N][N][N][N]" 



V] 

V][T] 

V] 

V] 
V] 



[B]" 
[B]" 

[Br 

[T][B]" 
[B] 



M][M][M][M][M]" 

N][N][N][N][N]" 
V] [B]" 

V] [T][B]" 

V] [T] [B]" 
V][T] [B]" 

V] [B]" 

M][M][M][M][M]" 

N][N][N][N][N]" 



V] 

V][T] 

V] 

V][T] 

V] 



[B]" 
[T][B]" 

[sr 

[T][B]" 
[B]" 



M][M][M][M][M]" 

N][N][N][N][N]" 
V] [B]" 

V][T] [T][B]" 

V] [T] [B]" 
V][T] [T][B]" 

V] [B]" 

M][M][M][M][M]" 

N][N][N][N][N]" 



V] 

V][T] 

V][T] 

V][T] 

V] 



[B]" 
[T][B]" 
[T][B]" 
[T][B]" 

[B]" 



M][M][M][M][M]" 
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Alarm 




Deep within your computer is an extremely accurate clock. The Atari 
operating system goes upon a round of duties 3600 times a second, refreshing 
each dot on the screen, checking for input, carrying out your orders, etc. 
You can get a bench mark speed from any computer by putting in a delay 
loop like: 

FOR 1=1 TO 1000:NEXTI 

Your Atari will crunch this in about 1 1 seconds. Add a few more 0's and 
your warranty will expire before the computer is done. Put a loop like this 
on a mainframe and before your finger is off the key the cursor will say 
"OK." The Atari has plenty of time to draw a numeral in large graphic 
characters once every second. The clock program PEEKs into a monitor 
routine in the Atari that is called the frame counter. This counter is timed to 
l/60th of a second to match the number of frames of a standard monitor or 
TV screen. Lines 1660 to 1670 figure out a high byte, middle byte, and low 
byte address for minutes, seconds, and hours. These bytes are POKEd into 
memory locations 20,19, and 18. The computer automatically updates these 
locations. Even if you stop and reload the clock program, the time will stay 
correct until you set new values. The time is read in line 1870 where the 
time locations are PEEKed at. The numerals are created by plotting a box- 
like figure 8 and blacking out appropriate segments of the box. Digital 
watch numerals work this way as well. The balance of the program 
remembers the number of days in a month and keeps you from entering a 
date like December 40. The months are written out when you input a 
number, and you can only enter Feb. 29 on a real leap year. 
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900 REM 

910 REM ************************************** 

* 
* 



ALARM CLOCK 



TIMER" 



DIGITAL CLOCK/CALENDAR" 



OPTIONS" 



920 REM * 
930 REM * 
940 REM * 

950 REM ************************************** 

960 REM 

1000 DIM S(7),N[12],A$(9) 

1010N1=1 

1020 N2=1 

1030N3=1980 

1040Q=0:GR.0 

1050 PRINT'*}" 

1060 PRINT 

1070 PRINT 

1080 PRINT' 

1090 PRINT 

1100 PRINT' 

1110PRINT 

11 20 PRINT 

1130 PRINT 

1140 PRINT 

1150 PRINT 

1160 PRINT 

1170 PRINT' 

1180 PRINT' 

11 90 PRINT' 

1200 PRINT' 

1210PRINT' 

1220 PRINT 

1230 PRINT 

1240 PRINT 

1250 PRINT' 

1260 INPUT 

1270 PRINT"}" 

1280 IF 0<1 OR 0>5 THEN 1220 

1 290 ON GOTO 1 350,1 580,1 730,1 300,1 770 

1300 PRINT"ALARM TIME (H, M, S)" 

1310 INPUT H1.M1.Z1 

1320 IF H1>-1 AND HK24 AND M1>-1 AND MK60ANDZ1>-1 AND 

ZK60THEN 1050 
1330 PRINT ILLEGAL TIME (24 HOUR FORMAT)!" 
1340 GOTO 1300 
1350 PRINT "CURRENT DATE (M, D, Y)" 



1 
2 
3 
4 



SET DATE" 
SET TIME" 
SET TICK- 
SET ALARM" 



5 - DISPLAY TIME" 



WHICH OPTION" 



J 
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1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 

1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 



NPUTN1.N2.N3 

IF N3<100THEN N3= 



1900+N3 



N[1]=31 

N(2]=29 

N(3]=31 

N(4)=30 

N(5]=31 

N(6]=30 

N[7)=31 

N(8]=31 

N(9]=30 

N(10]=31 

N(11)=30 

N(12]=31 

IF N2>0 AND N2<N(N1)+1 THEN 1540 

GOSUB2910 

PRINT A$;" ONLY HAS A MAX OF";N(N1);" DAYS!" 

GOTO 1350 

IF N1<>2 OR N2029THEN 1050 

IF N3=INT(N3/4)*4 THEN 1 050 

PRINT "THE NEXT LEAP YEAR IS";4+INT(N3/4)*4;"!" 

GOTO 1350 

PRINT "CURRENT TIME (H, M, S)" 

INPUT H.M.Z 

IF H>-1 AND H<24 AND M>-1 AND M<60 AND Z>-1 AND Z<60 

THEN 1630 

PRINT "ILLEGAL TIME (24 HOUR FORMAT)!" 

GOTO 1580 

SC=H*216000 

SC=SC+M*3600 

SC=SC+Z*60 

HB=INT(SC/65536] 

MB=INT((SC-65536*HB]/256) 

LB=SC-256*MB-HB*65536 

POKE20.LB 

POKE19.MB 

POKE 18.HB 

GOTO 1050 

PRINT "DO YOU WANT SOUND OF TICK [Y OR N]" 

INPUT A$ 

IF A$="Y"THEN Q=1 

GOTO 1050 

GRAPHICS4 

COLOR 1 
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1790 PLOT 27,18 

1800 PLOT 27,22 

1810 PLOT 43,1 8 

1820 PLOT 48,22 

1830 POKE 752,1 

1840H2=H+1 

1850M2=M+2 

1860 UD=1 

1 870 SC=PEEK(1 8]*B553B+PEEK(1 9]*256+PEEK(20) 

1 880 H=INT(SC/21 6000] 

1890 IF H<25 THEN 1960 

1900 UD=1 

1910GOSUB3220 

1920 POKE 20,0 

1930 POKE 19,0 

1940 POKE 18,0 

1 950 H=0:M=0:Z=0:GOTO 1 990 

1 960 M=INT((SC-H*21 6000J/3600) 

1 970 Z=INT(SC-H*21 6000-M*3600]/60 

1980 IF UD=0 THEN 2010 

1990GOSUB3160 

2000 UD=0 

2010 IF H=H2THEN 2050 

2020 CX=1 1 

2030NUM=H 

2040 GOSUB 2200 

2050 IF M=M2 THEN 2090 

2060 CX=32 

2070NUM=M 

2080 GOSUB 2200 

2090 CX=52 

2100NUM=Z 

21 10 GOSUB 2200 

2120IFH+M=0AND H1>0THEN GOSUB 3220 

2130IFQ=1 THEN SOUND 0,45,10,2 

2140IFHOH1 OR MOM1 OR Z-ZK1 ORZ-Z1>10 

THEN SOUND 1,0,0,0:GOTO 2160 
21 50 SOUND 1 ,200,1 0,1 5 
21 60 SOUND 0,0,0,0 
2170H2=H 
2180M2=M 
21 90 GOTO 1870 
2200DIG=INT(NUM/10] 
2210 GOSUB 2240 
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2220 CX=CX+6 

2230DIG=NUM-10*DIG 

2240 REM DIGIT OUTPUT 

2250 FOR K=1 TO 7 

2260S(K)=1 

2270 NEXT K 

2280 ON DIG+1 GOTO 2290,2310,2370,2400,2430,2470,2500,2530,2610,2580 

2290S(7)=0 

2300 GOTO 2610 

2310S(1]=0 

2320S(4)=0 

2330 S(5]=0 

2340 S(6]=0 

2350S(7]=0 

2360 GOTO 2610 

2370S(2]=0 

2380S(5)=0 

2390 GOTO 2610 

2400 S(5)=0 

2410S(6)=0 

2420 GOTO 2610 

2430S(1]=0 

2440 S(4)=0 

2450 S[6)=0 

2460 GOTO 2610 

2470 S(3]=0 

2480 S[6]=0 

2490 GOTO 2610 

2500 S(3)=0 

2510S(4]=0 

2520 GOTO 2610 

2530S(1)=0 

2540 S(5]=0 

2550S(6)=0 

2560 S(7]=0 

2570 GOTO 2610 

2580S(1]=0 

2590S(6)=0 

2600 GOTO 2610 

2610 COLOR 

2620 FOR K=1 TO 7 

2630 IF NOT S(K) THEN ON K GOSUB 2700,2730,2760,2790,2820,2850,2880 

2640 NEXT K 
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2650 COLOR 1 

2660 FOR K=1 TO 7 

2670 IF S(K] THEN ON K GOSUB 27002730,2760,2790,2820,2850,2880 

2680 NEXT K 

2690 RETURN 

2700 PLOT CX.30 

2710 DRAWTO CX+4,30 

2720 RETURN 

2730 PLOT CX+4,20 

2740 DRAWTO CX+4,30 

2750 RETURN 

2760 PLOT CX+4,10 

2770 DRAWTO CX+4,20 

2780 RETURN 

2790 PLOT CX.10 

2800 DRAWTO CX+4,10 

2810 RETURN 

2820 PLOT CX.10 

2830 DRAWTO CX.20 

2840 RETURN 

2850 PLOT CX.20 

2860 DRAWTO CX.30 

2870 RETURN 

2880 PLOT CX.20 

2890 DRAWTO CX+4,20 

2900 RETURN 

2910 ON N1 GOTO 2920,2940,2960,2980,3000,3020,3040, 

3060,3080,31 00,31 20,31 40 
2920A$="JANUARY" 
2930 RETURN 
2940A$="FEBRUARY" 
2950 RETURN 
2960A$="MARCH" 
2970 RETURN 
2980A$="APRIL" 
2990 RETURN 
3000 A$=" MAY" 
3010 RETURN 
3020A$="JUNE" 
3030 RETURN 
3040 A$=" JULY" 
3050 RETURN 
3060A$="AUGUST" 
3070 RETURN 
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3080 A$="SEPTEMBER" 

3090 RETURN 

3100A$="OCTOBER" 

3110 RETURN 

3120A$="NOVEMBER" 

31 30 RETURN 

3140A$="DECEMBER" 

31 50 RETURN 

3160 GOSUB 2910 

31 70 PRINT T 

3180 PRINT" ";A$;"";N2;", ";N3 

3190 PRINT 

3200 PRINT "ALARM SET FOR ";H1 ;":";M1 ;":";Z1 

3210 RETURN 

3220N2=N2+1 

3230 IF N2>N(N1) OR (N2=29 AND N3< >INT[N3/4)*4) THEN 3250 

3240 GOTO 31 60 

3250N1=N1+1 

3260 N2=1 

3270 IF NK13 THEN 3160 

3280 N1=1 

3290 N3=N3+1 

3300 GOTO 31 60 

3310END 
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A classic word game that you can easily modify to contain different words or 
even a different graphic routine if you think hanging is too severe. One 
popular version of the game has a boat slowly sinking. If you miss too many 
letters, water goes over the gunwales and scuttles the boat. The ON GOTO 
command sends the program to the appropriate lines to draw the parts of 
the body and each section has a GOTO to send control back to the next 
guess. Letters are read off the keyboard directly, without the need to press 
RETURN after each guess. This is done by 'opening' the keyboard and using 
the GET command. There is a test to ignore the RETURN key if you do try 
to use it. 
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Testing for correct answers is done by stepping through the string letter by 
letter with substrings (1,1) with a FOR-NEXT loop that is set to the length of 
the string I=LEN(W$). Notice that your guesses are sorted alphabetically 
courtesy of the sort routine in 2080-2170. With the routines in this program 
you could write a spelling test or a list sorter. Late one night you could add a 
funeral dirge for your friends who can't spell. This is a perfect game for a 
beginning programmer to modify, because the graphic elements are all in 
separate sections, and can be easily changed. 
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I (71(71(71 R F M ************************************ 

1010REM* 

1020 REM* HANGMAN * 

1030 REM* * 

m I A^\ \ A [ J | f\fl *****************************2§:****** 

1050 REM 

1060 REM DIMENSION VARIABLES 
1070 DIM A$(2],G$(20],T$(26),W$(20] 
1080 REM SKIP SUBROUTINES 
1090 GOTO 1200 

II 00 PRINT"}"; 

11 10 POSITION 12,2 

1 1 20 PRINT "*** HANG MAN ***" 

11 30 POSITION 2,5 

1140 RETURN 

11 50 POKE 754,255 

11 60 POSITION 2,23 

11 70 PRINT "PRESS 'RETURN' TO CONTINUE"; 

1 1 80 IF PEEK(754]< >1 2 THEN 1 1 80 

11 90 RETURN 

1200 GRAPHICS 

1210CLOSE #1 

1220 OPEN #1,4,0,"K:" 

1230GOSUB 1100 

1 240 PRINT "In this game you are given the format" 

1 250 PRINT "of a word. You try to spell out the" 

1 260 PRINT "mystery word by guessing one letter" 

1270 PRINT "at a time." 

1280 PRINT 

1 290 PRINT "If the letter is in the word then I" 

1300 PRINT "will expose all occurrences of that" 

1310 PRINT "letter, in their correct position" 

1 320 PRINT "within the word. If you guess a" 

1 330 PRINT "letter not found in the word, then I" 

1 340 PRINT "will add a part to the man in the" 

1350 PRINT "gallows." 

1360 PRINT 

1370 PRINT "When the man is complete, (head," 

1380 PRINT "mouth, eyes, arms, and legs), he is" 

1390 PRINT "hung and you lose. To win, guess the" 

1400 PRINT "entire word correctly." 

1410GOSUB 1150 

1420 RESTORE 

1430 F=0 
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1 440 C=0 

1450 FOR 1=1 TO INT(RND(1]*30]+1 

1460 READ W$ 

1470 NEXT I 

1480G$="" 

1490 FOR 1=1 TO LEN(W$) 

1500G$(I,I)="-" 

1510 NEXT I 

1 520 T$="" 

1530 GRAPHICS 5 

1 540 SETCOLOR 0,3,10 

1550 COLOR 1 

1560 PLOT 3,0 

1570DRAWTO 79,0 

1580DRAWTO 79,39 

1590DRAWTO 3,39 

1600DRAWTO3.0 

1610 PLOT 38,7 

1620 DRAWTO 38,4 

1 630 DRAWTO 40,4 

1 640 DRAWTO 40,3 

1650 DRAWTO 8,3 

1660 DRAWTO 8,37 

1670 DRAWTO 9,37 

1680 DRAWTO 9,31 

1690 DRAWTO 67,31 

1700 DRAWTO 67,37 

1710 DRAWTO 68,37 

1720 DRAWTO 68,30 

1730 DRAWTO 9,30 

1740 DRAWTO 9,4 

1750 DRAWTO 38,4 

1760 PLOT 10,11 

1770 DRAWTO 16,5 

1780 DRAWTO 17,5 

1790 DRAWTO 10,12 

1800 FOR l=32 TO 37 

1810 COLOR 2-(l/2-INT(l/2))*2 

1820 PLOT (1+1 )-3*(l-32].l 

1830 DRAWTO 2*1-21,1 

1840 NEXT I 

1 850 IF W$=G$ THEN 2260 

1860 PRINT "}Word :";G$ 

1 870 PRINT "guesses:";T$ 
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1 880 IF F-1 THEN PRINT "THAT LETTER IS USED " 

1890 IF F=3THEN PRINT "YOU MISSED THAT ONE 

1 900 IF F=2 THEN PRINT "YOU GOT ONE !!" 

1310 IF F=0THEN PRINT 

1 920 PRINT "Enter your guess "; 

1930 GET #1,A 

1 940 IF A=1 55 THEN 1 930 

1950A$=CHR$(A) 

1960F=0 

1970 IF NOT LEN(T$) THEN 2010 

1980 FOR 1=1 TO LEN(T$] 

1990 IF A$=T$[I.I] THEN F-1 

2000 NEXT I 

2010 IF FTHEN 1850 

2020 FOR 1=1 TO LEN[G$) 

2030 IF A$=G$(I,I] THEN F=1 

2040 NEXT I 

2050 IF FTHEN 1850 

2060 FOR 1=1 TO LEN(W$] 

2070 IF A$<>W$(I,I) THEN 2100 

2080 F=2 

2090G$(I,I]=A$ 

2100 NEXT I 

21 10 IF F=2THEN 1850 

2120L=LEN(T$)+1 

2130T$(L,L)=A$ 

2140 IF L=1 THEN 2250 

2150F=0 

21 80 FOR 1=1 TO L-1 

21 70 IF T$(I,I)<T$(I+1 ,1+1 ) THEN 2220 

2180F=1 

2190A$=T$(I,I] 

2200 T$[I,I]=T$(I+1, 1+1) 

2210T$(I+1,I+1]=A$ 

2220 NEXT I 

2230 IF FTHEN 2150 

2240 F=3 

2250 GOTO 2370 

22B0GOSUB 1100 

2270 PRINT "GAME OVER." 

2280 IF F02THEN PRINT "YOU LOSE III" 

2290 IF F=2 THEN PRINT "YOU GOT IT III" 

2300 PRINT "THE WORD WAS ";W$ 

2310 PRINT "DO YOU WANT TO PLAY AGAIN Y/N "; 
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2320GET#1,A 

2330A$=CHR$(A) 

2340 IF A=1 55 THEN A$="Y" 

2350 IF A$="Y" THEN 1420 

23B0END 

2370C=C+1 

2380 ON C GOTO 2390,251 0,2560,261 0,2660,2740,281 0,2880,2380 

2390 COLOR 2 

2400 PLOT 37,8 

2410DRAWTO 39,8 

2420DRAWTO 41,10 

2430DRAWTO41,12 

2440DRAWTO 39,14 

2450DRAWTO 37,14 

2460 DRAWTO 35,12 

2470DRAWTO 35,10 

2480 DRAWTO 37,8 

2490 PLOT 38,1 5 

2500 GOTO 1850 

2510 COLOR 3 

2520 PLOT 36,10 

2530 PLOT 37,10 

2540 PLOT 37,11 

2550 GOTO 1850 

2560 COLOR 3 

2570 PLOT 40,10 

2580 PLOT 39,10 

2590 PLOT 39,11 

2600 GOTO 1850 

2610 COLOR 1 

2620 PLOT 37,1 3 

2630 PLOT 38,1 2 

2640 PLOT 39,1 3 

2650 GOTO 1850 

2660 COLOR 1 

2670 PLOT 37,1 6 

2680 DRAWTO 37,22 

2690 DRAWTO 39,22 

2700 DRAWTO 39,1 6 

2710 DRAWTO 38,16 

2720 DRAWTO 38,22 

2730 GOTO 1850 

2740 COLOR 2 
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2750 PLOT 37,1 6 

2760 DRAWTO 33,16 

2770 DRAWTO 33,18 

2780 DRAWTO 34,18 

2790 DRAWTO 34,16 

2800 GOTO 1850 

2810COLOR2 

2820 PLOT 39,1 6 

2830 DRAWTO 43,1 6 

2840 DRAWTO 43,1 8 

2850 DRAWTO 42,1 8 

2860 DRAWTO 42,16 

2870 GOTO 1850 

2880 COLOR 2 

2890 PLOT 33,26 

2900 DRAWTO 36,26 

2910 DRAWTO 36,23 

2920 DRAWTO 37,23 

2930 DRAWTO 37,22 

2940 DRAWTO 35,22 

2950 DRAWTO 35,25 

2960 DRAWTO 33,25 

2970 GOTO 1850 

2980 COLOR 2 

2990 PLOT 43,26 

3000 DRAWTO 40,26 

3010 DRAWTO 40,23 

3020 DRAWTO 39,23 

3030 DRAWTO 39,22 

3040 DRAWTO 41,22 

3050 DRAWTO 41,25 

3060 DRAWTO 43,25 

3070 FOR l=0 TO 255 STEP 2 

3080 SOUND 0,1,8,4 

3090 NEXT I 

31 00 SOUND 0,0,0,0 

31 10 GOTO 2260 

3120 DATA PENCIL,COMPUTER,PRINTER,ELEPHANT,NOTEBOOK 

3130 DATA HANGMAN,POSTER,CEILING,FOOTBALL,EVERGREEN 

3140 DATA YESTERDAY,MIRROR,PICTURE,CARPET,MONOPOLY 

3150 DATA SCOUNDREL,PROFILE,EQUIPMENT,FOUNTAIN, LAVISH 

3160 DATA RHYTHM, PLEASURE,ROUTINE,TEACHER,REGULAR 

3170 DATA BARBECUE,BARRIER,PAVEMENT,THOUGHTFUL,MARRIAGE 
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Digits is a clever little guessing game that will give you a hint if your answer 
is partly correct. You can use the routines in this game to write simple 
arithmetic drills. The random number function in lines 1630-1670 generates 
the random numbers and checks to see that each number is different. The 
program does this by looping back to the random number routine for a new 
number until all three are different. Line 1750 accepts your guess as a string 
variable and then converts it to a numeric variable with the VAL command 
and substrings. In 1780 the first character (1,1) of A$ is converted to Gl, 
guess number ONE. A$(2,2) is converted to G2 etc. If you ask for a numeric 
(INPUT Gl) directly and the player types "one" the program will crash. You 
should always enter numbers as strings, error check the input, and then use 
VAL to convert the sting to a numeric variable. 
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Lines 1830-1860 check for correct answers using Boolean algebra. This is a 
fast way to integrate the logical values of TRUE, FALSE, AND, OR and 
NOT with mathematics. If Nl (the first number to be guessed) equals Gl 
(your first guess) then (Nl=Gl) will be true and have the Boolean value of 1. 
If Nl and Gl don't match the value of (Nl=Gl) will equal (false). CX in 
line 1830 will be the total number of "trues." In 1890 the value of CX is 
used to select a substring of the row of X's stored in X$ at line 1070, and 
that way gives the number of X's equal to the number of correct guesses. 
The semicolon at the end of line 1890 tells the computer to add the next 
string directly after X$ so that the proper combination of X's, O's, and -'s 
end up on one line. 
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1 f7l(7l(^ R P K/l ************************************ 

1010REM* 

1020 REM* DIGITS 

1030 REM* * 

a i a a c~% rn c IV /l ************************************ 

1050 REM DIMENSION VARIABLES 
1060 DIM A$(10],X$(3),O$(3),L$(3) 

I 070 X$="XXX" 
1080O$="OOO" 
1 090 L$=" — " 

II 00 GRAPHICS 
11 10 POSITION 14,3 

11 20 PRINT"*** DIGITS***" 

11 30 POSITION 2,6 

1140 PRINT "I will think of a number between 012" 

1 1 50 PRINT "and 987. Each digit in the number" 

1 1 60 PRINT "will be different from the other two" 

1170 PRINT 

1 1 30 PRINT "The object of the game is to guess" 

1 1 90 PRINT "solution in as few tries as possible." 

1200 POSITION 2,23 

1210 PRINT"PRESS RETURN WHEN READY"; 

1220 INPUT AS 

1230 PRINT"}"; 

1240 POSITION 14,3 

1250 PRINT"*** DIGITS***" 

1260 POSITION 2,6 

1 270 PRINT "After each guess, I will print out a" 

1 280 PRINT "hint line as follows :" 

1290 PRINT 

1 300 PRINT ">For each digit correct and in the" 

1310 PRINT " correct position, I will print an 'x'" 

1 320 PRINT ">For each digit correct but not in" 

1 330 PRINT " the correct position, I will print" 

1340 PRINT" an '0'" 

1350 PRINT 

1 360 PRINT ">For each totaly incorrect digit, I" 

1370 PRINT" will print a 

1380 PRINT 

1390 PRINT " Play will continue until I you guess" 

1 400 PRINT " the correct number. To quit early," 

1410 PRINT" simply enter 'STOP' for your guess." 

1420 POSITION 2,23 

1430 PRINT"PRESS RETURN TO CONTINUE"; 



V 
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1440 INPUT A$ 

1450 PRINT"}"; 

14B0 POSITION 2,4 

1470 PRINT "Here is a table to help you" 

1480 PRINT "understand the instructions." 

1490 PRINT :PRINT 

1500 PRINT "ANSWER GUESS" 

1510 PRINT" " 

1520 PRINT "065 708 0--" 

1530 PRINT "562 463 X-" 

1540 PRINT "91 8 890 00-" 

1550 PRINT "390 305 X0-" 

1560 PRINT "271 721 XOO" 

1570 PRINT "425 780—" 

1580 PRINT 

1590 POSITION 2,23 

1600 PRINT"PRESS RETURN TO CONTINUE"; 

1610INPUTAS 

1620NG=0 

1630N1=INT(RND(1]*10) 

1640N2=INT(RND(1)*10] 

1 650 IF N2=N1 THEN 1 640 

1660N3=INT(RND(1)*10) 

1670 IF N3=N1 OR N3=N2 THEN 1660 

1680 PRINT"}"; 

1690 POSITION 14,4 

1 700 PRINT "*** DIGITS ***" 

1710PRINT:PRINT 

1 720 PRINT "Okay, I've got a number ... " 

1730 PRINT 

1 740 PRINT "What is your guess "; 

1750 INPUT A$ 

1760 IF A$="STOP" THEN 1940 

1770 IF LEN(A$]<>3 THEN PRINT "TYPE ONLY 3 DIGITS ... {".GOTO 1740 

1780G1=VAL(A$(1,1)) 

1790G2=VAL(A$(2,2)] 

1800G3=VAL(A$[3,3)) 

1810 IF G1=G2 OR G2=G3 OR G1=G3 THEN PRINT 

"PLEASE TYPE THREE DIFFERENT DIGITS":GOTO 1 740 
1820CX=0:CO=0:CL=0 
1830CX=(N1=G1)+(N2=G2]+(N3=G3) 
1840 C0=[N1=G2]+(N1=G3) 
1 850 C0=C0+(N2=G1 )+(N2=G3] 
1 860 C0=C0+(N3=G1 )+(N3=G2] 
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1870CL=3-(CX+CO] 

1 880 PRINT "For your guess of ";A$;" I hint "; 

1890 IF CX>0THEN PRINT X$[1 ,CX); 

1900 IF CO>0THEN PRINT 0$(1 , CO); 

1910 IF CL>0THEN PRINT L$(1,CL); 

1920NG=NG+1:PRINT 

1 930 IF CX< >3 THEN 1 740 

1940 PRINT "THE GAME IS OVER . . . ":PRINT 

1 950 IF CX=3 THEN PRINT "You guessed it in only ";NG;" trys !" 

1960 IF CXOTHEN PRINT "The correct answer was ";N1 ;N2;N3 

1970 PRINT 

1980 PRINT "WOULD YOU LIKE TO PLAY AGAIN Y/N "; 

1990 INPUT A$ 

2000 IF LEN(A$)=0 THEN 2020 

2010 IF A$(1,1]="Y" THEN 1620 

2020 END 
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What good is a home computer? Now at last, DATAMOST has the answer. 
Here is a program that solves a problem that comes up in real life ALL THE 
TIME. Is a nine inch pizza for $4.95 worth as much as a 12 inch pizza for 
$6.50? The program is very sophisticated. We have considered that the 
outside crust occupies relatively more space on a small pizza and therefore 
displaces more of the goodies. The calculations will allow you to compare up 
to ten pizzas both ways! This program has screen formats, subroutines, FOR 
NEXT loops and scads of other vital programming tools. If every real life 
problem were attacked with powerful tools like this, you would get nothing 
done. 
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1106$ REM ************************************* 

1010REM* 

1020 REM* PIZZA * 

1030 REM* * 

1040 REM ************************************ 

1050 REM 

1060 DIM D(10),P(10],A$(20] 

1070PM3.14159 

1080ST=1 

1090 REM 

1100 GOTO 1210:REM SKIP SUBROUTINES 

11 10 GRAPHICS 

11 20 PRINT"}" 

11 30 POSITION 12,3 

1 1 40 PRINT "*** PIZZA ***" 

11 50 POSITION 2,6 

11 60 RETURN 

11 70 POSITION 2,23 

1 1 80 PRINT "PRESS 'RETURN' TO CONTINUE"; 

11 90 INPUT A$ 

1200 RETURN 

1210GOSUB 1110 

1220 PRINT "THIS PROGRAM WILL HELP YOU FIND" 

1 230 PRINT "THE BEST DEAL FOR YOUR PIZZA" 

1 240 PRINT "HOW THIS WORKS IS SIMPLE, YOU JUST" 

1250 PRINT "TELL ME THE NUMBER OF DIFFERENT SIZE" 

1260 PRINT"PIZZAS. THEN I WILL ASK FOR THE SIZE" 

1270 PRINT "(DIAMETER IN INCHES) AND PRICE OF" 

1 280 PRINT "EACH DIFFERENT SIZE PIZZA. THEN I" 

1 290 PRINT "WILL CALCULATE THE PRICE PER SQUARE" 

1300 PRINT"INCH ANDTHE NUMBER OF INCHES OF" 

1 310 PRINT "CRUST. USING A STANDARD OF ";ST 

1320 PRINT "FOR A WIDTH OF THE EDGE I WILL TELL" 

1330 PRINT "YOU JUST HOW MUCH PIZZA YOU GET." 

1340GOSUB 1170 

1350GOSUB 1120 

1360PRINT"HOW MANY DIFFERENT SIZE PIZZAS"; 

1370 INPUT A$ 

1 380 IF A$="" THEN A$="0" 

1390NM=VAL[A$] 

1400 IF NM=0THEN END 

1410 IF NMM0THEN PRINT "10 PIZZAS MAX.":GOTO 1360 

1420 FOR X=1 TO NM 

1430GOSUB 1120 
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1440 PRINT "FOR PIZZA NUMBER ";X 

1450 PRINT 

1460 PRINT "WHAT IS THE SIZE (DIAMETER IN INCHES]" 

1470 PRINT "ENTER:"; 

1480 INPUT AS 

1490 IF A$="" THEN A$="0" 

1500D(X]=VAL(A$) 

1510PRINT 

1 520 PRINT "WHAT IS THE PRICE" 

1530PRINT"ENTER:"; 

1540 INPUT AS 

1550 IF A$="" THEN A$="0" 

15B0P(X]=VAL(A$] 

1570 PRINT 

1580 NEXT X 

1590 PRINT"}" 

1600 PRINT 

1610 PRINT"*** PIZZA ***" 

1620 PRINT 

1630 PRINT "N NUMBER" 

1640 PRINT "SZ SIZE" 

1650 PRINT "PR PRICE" 

1 660 PRINT "PR/SQ' . . PRICE PER SQUARE INCH W/EDGE" 

1 670 PRINT "PR/SQO . . PRICE PER SQUARE INCH WO/EDGE' 

1680 PRINT 

1690 PRINT "N SZ PR PR/SQ' PR/SQO" 

1700 PRINT 

1710 FOR X=1 TO NM 

1720Y=10+X 

1730 POSITION 2,Y 

1740 PRINT X; 

1750 POSITION 5,Y 

1760 PRINT D(X); 

1770 POSITION 9,Y 

1780 PRINT P(X]; 

1790 POSITION 15.Y 

1800R=D(X]/2 

1810A=PI*R*R 

1820 P=INT[100*P(X)/A+0.5]/100 

1830 PRINT P; 

1840 POSITION 23.Y 

1850R=R-ST 

1860A=PI*R*R 

1870 P=INT(100*P(X)/A+0.5]/100 
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1880 PRINT P; 
1830 NEXT X 
1900GOSUB 1170 
1910 GOTO 1350 
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IRS Man is a fun game that will teach you about factors. Everyone wants to 
beat the IRS Man, and now here's your chance! To play, choose a number 
(we'll call it X), and the numbers 1 through X will appear. Each time you 
remove a number from the list, all of the factors of that number still on the 
list go to the IRS Man. The object of the game is to garner as much money 
as possible, while being as stingy as possible with the IRS Man . If you select 
twelve numbers to play with 123456789101112 will appear on the 
screen. If you play the number 12 first, the IRS man will get 6,2,4,3 and 1 
(6x2=12, 3x4=12, 1x12=12) for a score of 16 to your 12. The board will 
then display 11 10987 5. As you will note, the only remaining number on 
the list which has a factor displayed is 10 (the remaining factor is 5). Only a 
number that has a factor to give to the IRS man can be removed from the 
list, and all the numbers that cannot be factored go to him as well. After he 
has scooped these up the final score is 22 for you and 56 for the IRS. Talk 
about realism! 

You can shelter some of your cash with strategy. Use the universal factor 1 
to remove the largest prime number, 1 1 . If you choose 8 next you won't 
give away the 6 or the 3 to the IRS. Choose 9 next and only the 3 goes to 
IRS. Now is the time to choose 12 because only the 6 is left to pay off with. 
This leaves 7,5 and 10 on the screen. Select 10; 5 and 7 go to our greedy 
advisary but we still win handily. 16 for the IRS and 40 for you. It probably 
means you'll be audited! 

Think you've got it? Play with a bigger stake and both you and the computer 
will be pondering the moves for a long time. 
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1000 REM ************************************ 
1010REM* * 

1020 REM* IRS MAN * 

1030 REM* 
1040 REM ************************************ 

1050 REM 

1060 REM DIMENSION VARIABLES 

1070 DIM A$(20],LI(50),B$(20] 

1080 GOTO 1130 

1090 POSITION 2,23 

11 00 PRINT "Press 'RETURN' when ready"; 

1110INPUTAS 

1120 RETURN 

1130 GRAPHICS 

1140 POSITION 14.3.PRINT"*** IRS Man ***" 

11 50 POSITION 2,6 

1 1 60 PRINT "This is the game of IRS Man. 

11 60 To win," 

1 1 70 PRINT "you try to accumulate more money than" 

1 1 80 PRINT "your nemesis, the IRS Man." 

1190 PRINT 

1 200 PRINT "Give me a number between 1 and 50." 

1210 PRINT "I will display a consecutive number" 

1 220 PRINT "string starting at 1 , and continuing" 

1 230 PRINT "through to the number you selected." 

1 240 PRINT "You will then choose how much money" 

1 250 PRINT "(which number) you want to remove" 

1260 PRINT "from the list." 

1270GOSUB 1090 

1280 PRINT "esc clear"; 

1290 POSITION 14,3:PRINT"*** IRS MAN ***" 

1300 PRINT 

1310 PRINT "But, and here's the fun part, the" 

1320 PRINTERS Man gets all of the remaining" 

1 330 PRINT "numbers on the list that are factors" 

1 340 PRINT "of the number you chose. That is how" 

1 350 PRINT "the IRS Man gets his money. If you" 

1360 PRINT "choose 6, for example, the IRS Man " 

1370 PRINT "gets (potentially 1,2, and 3]." 

1380 PRINT 

1 390 PRINT "You cannot choose a number that has" 

1400 PRINT "no remaining factors in the list," 

1410 PRINT "because you must always pay the IRS." 

1420 PRINT 
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1430 PRINT "When you can no longer remove any of" 

1440 PRINT "the remaining numbers from the list," 

1450 PRINT "the IRS Man claims all of the unused" 

1460 PRINT "money (numbers] for himself." 

1470GOSUB 1090 

1480 FOR 1=1 TO 50 

1490SC=0:TA=0 

1500LI(I)=I 

1510NEXTI 

1520 PRINT "esc clear"; 

1530 POSITION 14,3:PRINT"*** IRS MAN ***" 

1540 PRINT 

1550 PRINT "HOW MANY NUMBERS"; 

1560 INPUT A$ 

1 570 A=0 

1 580 IF LEN(A$) THEN A=INT(VAL[A$)) 

1590 IF A<1 OR A>50THEN PRINT "< << USE A NUMBER BETWEEN 1 

AND 50 > > >":GOTO 1 550 
1600 NU=A 

1610 PRINT "esc clear"; 

1620 POSITION 14,3:PRINT"*** IRS MAN ***" 
1630 PRINT "The list:" 
1640 PRINT 
1650K=0 

1660 FOR 1=1 TO NU 
1 670 A$=" 
1680B$=STR$(I) 

1690 IF Ll(l] THEN A$(6-LEN(B$],6)=B$ 
1700 PRINT A$; 
1710K=K+1 

1720 IF K=5 THEN PRINT :K=0 
1730 NEXT kPRINT 
1 740 IF NU=1 THEN PRINT "Ooops, you can't get anything . . . "; 

TA=1:LI(1)=0:GOTO 2140 
1750F=0 

1760 FOR l=2TO NU 
1770 IF NOTLI(I) THEN 1830 
1780 FOR J=1 TO 1-1 
1790 IF NOT LI(J] THEN 1820 
1800 IF Ll(l]/J< >INT(LI(I]/J] THEN 1820 
1810 F=1 
1820 NEXT J 
1830 NEXT I 
1840 IF NOT FTHEN 2140 
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1850 PRINT 

1860 PRINT "The score is: IRS Man: ";TA 

1870 PRINT" YOU : ";SC 

1880 POSITION 2,20 

1 890 PRINT "Which do you want"; 

1900 INPUT A$ 

1910A=INT(VAL[A$)) 

1920IFA>NU OR A<0THEN A=0 

1930IFA<1 OR NOTLIfA] THEN PRINT "That is not available";:GOTO 1880 

1940SD=0:IF A=1 THEN 2000 

1950 FOR 1=1 TO A 

1960 IF NOT Ll[l) THEN 1990 

1970 IF l=ATHEN 1990 

1 980 IF A/I=INT(A/I) THEN SD=SD+I 

1990 NEXT I 

2000 IF SD THEN 2050 

2010 PRINT 

2020 PRINT "You can't have it. That leaves" 

2030 PRINT "nothing for the IRS Man" 

2040 GOTO 1610 

2050 LI(A]=0 

2060 SC=SC+A 

2070TA=TA+SD 

2080 FOR 1=1 TO A 

2090 IF NOT Ll(l) THEN 2120 

2100 IF l=ATHEN 2120 

21 10 IF A/I=INT(A/I)THEN Ll(l]=0 

21 20 NEXT I 

21 30 GOTO 1610 

2140 REM GAME OVER 

2150 PRINT :PRINT 

21 60 PRINT "*** THE GAME IS OVER ***" 

2170 FOR 1=1 TO NU (j 

2180 IF Ll(l) THEN TA=TA+LI(I) 

2190 NEXT I 

2200 PRINT 

2210 PRINT "The IRS Man:";TA 

2220 PRINT" YOU:";SC 

2230 PRINT "[N][N][N][N][N][N][N][N][N][N][N][N][N][N][N][N][N][N][N]' 

:REM UNDERLINE 
2240 PRINT 

2250 IFTA>SCTHEN PRINT "The IRS Man is the winner !!!" 
2260 IF TA<SC THEN PRINT "You have beaten the IRS Man !!!" 
2270 IF TA=SC THEN PRINT "It's unbelievable but it's a tie !!!" 
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2280 PRINT" esc clear"; 

2290 PRINT 

2300 PRINT "Do you want to play again Y/N "; 

2310 INPUT A$ 

2320 IF LEN(A$] THEN. IF A$(1,1]="Y" THEN 1480 

2330 END 



ZZS> 
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You are given a ten year reign as the king of Sumeria. You can buy land and 
hoard grain while your peasants starve, but a revolutionary tribunal will sit 
in judgement at the end of your reign. If the price of grain is high you 
should sell some land for grain, but watch out; rats are attracked to large 
amounts of grain and can literally eat up your profits. Lines 3630 to 3790 
introduce random factors such as the price of land and the number of new 
inhabitants. The factors are intricately linked so that "nature" acts realistically. 
Occasionally an input will cause an unpredictable error, but you can resume 
the game with the CONTinue command. To understand how the variables 
work, change the beginning values in line 240, and change some of the 
random number statements. The game is an example of computer modeling, 
and you could use the framework to write any number of situations. 
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100 REM 

110 REM ************************************** 

120 REM* * 

140 REM* KINGDOM * 

150 REM* * 

160 REM* By Hal Glicksman 
170 REM* 

180 REM* COPYRIGHT DATAMOST * 

190 REM* * 
P(7I(7I RFM ************************************** 

210REM 

230 REM DIMENSION VARIABLES HERE 

240P=95:S=2800:H=3000:E=H-S:Y=3:A=H/Y:I=5:D=0:Z=0:Q=1 

250 DIM ANS$(40),NU$(20],Q$[4],D$[4) 

300 GOSUB 1 000:REM INSTS 

310 GOSUB 2000.REM SETUP 

320 GOSUB 3000:REM PLAY! 

330 GOSUB 4000:REM IEND! 

340 END 

1000 REM **** 

1001 REM *** INSTS 

1002 REM **** 

1010 PRINT "}":REM CLEAR SCREEN 

1020 POSITION 12,3:PRINT"*** KINGDOM ***" 

1030 PRINT :PRINT 

1040 PRINT "This is a simulation of the kingdom of Sumeria." 

1050 PRINT "The decisions which you make will affect the lives of hundreds 

of people" 
1 080 PRINT "You will be asked to make several key decisions each year, with 

each one being explained to you." 
1 1 00 POSITION 2,23:PRINT "Press 'RETURN' when ready."; 
1130INPUTANSS 
1990 RETURN 

2000 REM **** 

2001 REM *** SETUP 

2002 REM **** 
2010 REM *** SETUP 
2020 REM **** 

2040 REM YEAR SUBSTRINGS HERE 
2050 RETURN 

2100 NU$="first":SETCOLOR 2,3,1 :SETCOLOR4,3,3:RETURN 
2110 NU$="second":SETCOLOR 2,1,1 :RETURN 
2120 NU$="third":SETCOLOR 2,4,1 :RETURN 
2130 NU$="fourth":SETCOLOR 2,0,1 :RETURN 
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2140 NU$="fifth":SETCOLOR 2,7,1 :RETURN 
21 50 NU$="sixth":SETCOLOR 2,0,1 :RETURN 
21 60 NU$="seventh":SETCOLOR 2,3,1 :RETURN 
21 70 NU$="eighth":SETCOLOR 2,4,1 :RETURN 
21 80 NU$="ninth":SETCOLOR 2,1 ,1 :RETURN 
2190 NU$="tenth":SETCOLOR 2,3,2:RETURN 
2200 NU$="final":SETCOLOR 2,4,2:RETURN 
2210 GOTO 41 00 

3000 REM **** 

3001 REM *** PLAY 

3002 REM **** 

3005 PRINT "}" PRINT " *** KINGDOM ***" 

3010Z=Z+10 

3020GOSUB 2090+Z 

3100 PRINT :PRINT 

3120PRINT"Hamurabi, I beg to report to you that in the"; N US;" year of your reign, " 

31 25 PRINT D;" people starved." 

3130 PRINT I;" new inhabitants came into the city." 

3140 PRINT "Rats ate";E;" bushels." 

3280 P=P+I:IF Q=0 THEN P=INT(P/2):PRINT :PRINT "A horrible plague struck !!! 

Half of your people perished " 

3285 PRINT 

3290 PRINT "The population is ";P;"." 

3295 PRINT "The city owns ";A;" acres." 

3300 PRINT "You harvested ";Y;" bushels/acre." 

331 PRINT "You have ";S;" bushels in reserve." 

3400C=INT(RND(1]*10]:Y=C+17 

341 PRINT "Land is trading at ";Y;" bushels/acre." 

3420 PRINT "How many acres do you wish to buy?" 

3430 INPUT Q$:IF Q$="" THEN Q$="0" 

3431 Q=VAL(Q$) 

3440 IF Q<0 OR Y*Q> THEN? "0 wise Hamurabi please consider,":? 
"you only have";S;"bushels of grain.":GOTO 3420 

3450 IF Q>0THEN A=A+Q:S=S-Y*Q:C=0:GOTO 3500 

3453 PRINT "Land is trading at ";Y;" bushels/acre." 

3460 PRINT "How many acres of the royal domain":PRINT "should we sell"; 

3470 INPUT Q$:IF Q$="" THEN Q$="0" 

3471 Q=VAL(Q$) 

3480 IF Q>ATHEN PRINT"0 wisest of rulers, you only own ";A;" acres.":GOTO 3460 
3490 A=A-Q:S=S+Y*Q:C=0 

3500 PRINT "Of the ";S;" bushels remaining, how":PRINT "many 
do you wish to feed your":PRINT "people "; 

3510 INPUT Q$:IF Q$="" THEN Q$="0" 

3511 Q=VAL(Q$] 
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3520 IF (Q<1 ] THEN PRINT " great one, please reconsider. The peasants 

will starve.":GOTO 3500 
3530 IF Q>S THEN PRINT "Your beneficence exceeds the royal stores 

mighty one.":GDTO 3500 
3540S=S-Q 
3550 C=1 

3560 PRINT "Of the ";A;" acres you now possess," 
3570 PRINT "how many do you wish to plant with grain"; 

3580 INPUT D$:IF D$="" THEN D$="0" 

3581 D=VAL(D$] 

3590 IF D<1 THEN PRINT "The people will starve mighty one.":GOTO 3650 
3600 IF (D/2]>S THEN PRINT "There is not seed enough for so 

much land.":GOTO 3560 
3610 IF D>10*PTHEN PRINT "You can only force one peasant to work 

ten acres of land." 
3620 IF D>10*PTHEN PRINT "Your population of ";P;" 

isn't big enought.":GOTO 3560 
3630S=S-INT(D/2] 
3640 C=INT(RND(1)*5]+1 
3650 Y=C 
3660 H=D*Y 
3670 E=0 

3680 IF INT(C/2)*2=C THEN E=INT(S/C] 
3690S=S-E+H 
3700C=INT(RND(1)*5)+1 
371 l=INT(C*(20*A+S)/P/1 00+1 ] 
3720 C=INT(Q/20] 
3730 Q=INT(10*[2*RND(1]-0.3J) 
3740 IF P<C THEN D=0:GOTO 3010 
3750 D=P-C 

3760 IF D>0.5*P THEN 3800 
3770 P1=((Z-1]*P1+D*100/P]/Z 
3780 P=C 

3790 D1=D1+D:GOTO 3010 

3800 PRINT "0 mighty one you have failed your people and have been deposed." 
381 PRINT "You have starved ";P;" peasants." 
3820 WL=1 

3830 FOR T=0 TO 255 STEP 4 
3840 SOUND 0,T,1 0,10 
3850 FOR PAUSE=1 TO 10:NEXT PAUSE 
3860 NEXT T 

3870SOUND 0,0,0,0 y^y^MBMk^ 

3900 PRINT :PRINT * 

3910 GOTO 4300 
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3990 RETURN 

4000 REM *** 

4010 REM *** END ROUTINE 

4020 REM *** 

41 00 PRINT "} *** This is the Report of *** the Revolutionary Tribunal " 

4105 PRINT :PRINT 

41 1 PRINT "In ten years of your rule,";P1 *1 0;"% of the populous died each year." 

41 20 PRINT "A total of ";D1 ;" peasants perished." 

4130L=A/P 

41 40 PRINT "When you started, each peasant had ten acres." 

41 50 PRINT "Now each one has ";L;" acres." 

4200 PRINT :PRINT 

4220 IF P1>33 OR L<7 THEN PRINT "You have been deposed and beheaded, 

as befits a despot.":GOTO 4300 
4230 IF P1>10 OR L<9 THEN PRINT "You are banished from the 

kingdom.":GOTO4300 
4240 IF P1 >3 OR L<1 THEN PRINT "Only the upper classes wish 

you well.":GOTO 4300 
4250 PRINT "You are wonderfully wise great Hamurabi. Your reign will 

continue for many years" 
4300 PRINT "Would you like to rule again"; 
4310 INPUT ANS$ 
4320 IF ANS$="" THEN RUN 
4330 IF ANS$(1,1]="Y" THEN RUN 
4340 END 
4990 RETURN 
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If your family has been on your case for playing computer games you can 
write this educational program that will do a few plane geometry calculations. 
The program demonstrates how to format screens and input prompts. You 
can do all sorts of computations and put the results in a PRINT statement. 
The examples here are very easy, but you could put in very complex 
calculations without the program being any more complex. 

1010REM* * 

1020 REM* AREA 

1030 REM* 

11/14.(71 RFM ************************************ 

1050 REM 

1060 DIM A$[20] 

1070PN3.14159 

1080 GOTO 1190:REM SKIP SUBROUTINES 

1090 GRAPHICS 

11 00 PRINT"}" 

11 10 POSITION 12,4 

11 20 PRINT"*** AREA***" 

11 30 POSITION 2,8 

1140 RETURN 

11 50 POSITION 2,23 

11 60 PRINT "PRESS 'RETURN' TO CONTINUE"; 

1 1 70 INPUT A$:IF A$="" THEN A$="0" 

1180 RETURN 
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1190GOSUB 1090 

1200 PRINT" THIS IS A USEFUL PROGRAM" 

1210 PRINT "THAT WILL HELP YOU LEARN THE BASICS" 

1220 PRINT "OF COMPUTER MATH IN RELATION TO" 

1230 PRINT "SIMPLE GEOMETRY." 

1240GOSUB 1150 

1250GOSUB 1100 

12B0 PRINT" OPTIONS: AREA OF A" 

1270 PRINT 

1280 PRINT" 1] SQUARE" 

1290 PRINT 

1300 PRINT" 2] RECTANGLE" 

1310PRINT 

1320 PRINT" 3] TRIANGLE" 

1330 PRINT 

1340 PRINT" 4] CIRCLE" 

1350 PRINT 

1 360 PRINT" 5] TRAPEZOID" 

1370 PRINT 

1380 PRINT 

1 390 PRINT " 9] EXIT PROGRAM" 

1400 PRINT 

1410PRINT"ENTER:"; 

1420GOSUB 1170 

1430A=INT(VAL(A$]] 

1440 IF A=9 THEN END 

1450IFA<1 OR A>5THEN 1250 

1 460 ON A GOTO 1 470,1 670,1 940,221 0,241 

1470GOSUB 1100 

1480 PRINT"ENTER THE LENGTH OF ASIDE" 

1490 PRINT "0 WILL RETURN TO MENU" 

1500 PRINT 

1510PRINT"ENTER: "; 

1520GOSUB 1170 

1 530 S=VAL[A$]:IFS<0 THEN 1470 

1540 IF S=0 THEN 1250 

1550GOSUB 1100 

1560 PRINT 

1 570 PRINT "A=S*S OR A=S*2" 

1580 PRINT 

1590A=S*S 

1600 PRINT"A SQUARE WITH DIMENSIONS OF" 

1 61 PRINT S;" UNITS BY ";S;" UNITS" 

1 620 PRINT "HAS AN AREA OF" 
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1 630 PRINT A;" SQUARE UNITS." 

1640 PRINT 

1650 PRINT 

1660 GOTO 1480 

1670GOSUB 1100 

1680 PRINT"ENTER THE LENGTH OF SIDE 1" 

1 690 PRINT "0 WILL RETURN TO MENU" 

1700 PRINT 

1710PRINT"ENTER: "; 

1720GOSUB 1170 

1730 S1=VAL(A$]:IFS1<0 THEN 1670 

1740 IFS1=0THEN 1250 

1750 PRINT"ENTER THE LENGTH OF SIDE 2" 

1760 PRINT "0 WILL RETURN TO MENU" 

1770 PRINT 

1780 PRINT"ENTER: "; 

1790GOSUB 1170 

1 800 S2=VAL(A$):IFS2<0 THEN 1670 

1810 IFS2=0THEN 1250 

1820GOSUB 1100 

1830 PRINT 

1840 PRINT "A=S1*S2" 

1850 PRINT 

1860A=S1*S2 

1 870 PRINT "A RECTANGLE WITH DIMENSIONS OF" 

1 880 PRINT S1 ;" UNITS BY ";S2;" UNITS" 

1 890 PRINT "HAS AN AREA OF" 

1900 PRINT A;" SQUARE UNITS." 

1910PRINT 

1920 PRINT 

1930 GOTO 1680 

1940GOSUB 1100 

1950 PRINT "ENTER THE HEIGHT OF THE TRIANGLE" 

1960 PRINT "0 WILL RETURN TO MENU" 

1970 PRINT 

1980 PRINT "ENTER: "; 

1990GOSUB 1170 

2000H=VAL(A$):IF H<0THEN 1940 

2010 IF HH2THEN 1250 

2020 PRINT "ENTER THE LENGTH OF THE BOTTOM" 

2030 PRINT "0 WILL RETURN TO MENU" 

2040 PRINT 

2050 PRINT "ENTER: "; 

2060GOSUB 1170 
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2070 B=VAL(A$):IF B<0 THEN 1 940 

2080 IF B=0 THEN 1250 

2090GOSUB 1100 

2100 PRINT 

2110PRINT"A=.5*B*H" 

2120 PRINT 

2130A=0.5*B*H 

21 40 PRINT "A TRIANGLE WITH DIMENSIONS OF" 

2150 PRINT H;" UNITS HIGH AND ";B;" UNITS WIDE" 

21 60 PRINT "HAS AN AREA OF" 

21 70 PRINT A;" SQUARE UNITS." 

2180 PRINT 

2190 PRINT 

2200 GOTO 1950 

2210GOSUB 1100 

2220 PRINT "ENTER THE RADIUS OF A CIRCLE" 

2230 PRINT "0 WILL RETURN TO MENU" 

2240 PRINT 

2250 PRINT "ENTER: "; 

22B0GOSUB 1170 

2270R=VAL(A$):IF R<0THEN 2210 

2280 IF R=0THEN 1250 

2290GOSUB 1100 

2300 PRINT 

2310 PRINT "A=2*PI*R :REM PN3.14159" 

2320 PRINT 

2330A=2*PI*R 

2340 PRINT "A CIRCLE WITH RADIUS OF" 

2350 PRINT R;" UNITS" 

2360 PRINT "HAS AN AREA OF" 

2370 PRINT A;" SQUARE UNITS." 

2380 PRINT 

2390 PRINT 

2400 GOTO 2220 

2410GOSUB 1100 

2420 PRINT "ENTER THE LENGTH OF THE TOP" 

2430 PRINT "0 WILL RETURN TO MENU" 

2440 PRINT 

2450 PRINT "ENTER: "; 

2460GOSUB 1170 

2470L1=VAL(A$):IF LK0THEN 2410 

2480 IF L1=0THEN 1250 

2490 PRINT 

2500 PRINT "ENTER THE LENGTH OF THE BOTTOM" 
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2510 PRINT "0 WILL RETURN TO MENU" 

2520 PRINT 

2530 PRINT "ENTER: "; 

2540GOSUB 1170 

2550 L2=VAL(A$]:IF L2<0 THEN 241 

25B0IF L2=0THEN 1250 

2570 PRINT 

2580 PRINT "ENTER THE HEIGHT" 

2590 PRINT "0 WILL RETURN TO MENU" 

2600 PRINT 

2610 PRINT "ENTER: "; 

2620GOSUB 1170 

2630H=VAL(A$):IF H<0THEN 2410 

2640 IF H=0THEN 1250 

2650GOSUB 1100 

2660 PRINT 

2670 PRINT "A=L1 *H+[L2-L1 )/2*H" 

26B0 PRINT 

2690 A=L1 *H+[L2-L1 )/2*H 

2700 PRINT "A TRAPEZOID WITH DIMENSIONS OF" 



2710 PRINT L1 
2720 PRINT L2 
2730 PRINT H;' 



" UNITS WIDE ON TOP" 
" UNITS WIDE ON BOTTOM' 
UNITS TALL" 

2740 PRINT "HAS AN AREA OF" 

2750 PRINT A;" SQUARE UNITS." 

2760 PRINT 

2770 PRINT 

2780 GOTO 2420 
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A very simple premise results in a very complicated game. In Brain Teaser, 
simply select one of the squares that has a "+" (plus) sign in it. The square 
you chose will change to a minus sign and the other squares adjacent to your 
choice will flip to their opposite value. For some reason it seems easier to 
get all "-" (minus) squares and lose the game than it does to win. The print 
statements from 1920 to 2010 draw the grid of boxes that the plus and 
minus signs go into. If you type in the control characters indicated in the 
listings the grid will appear on your screen. The values for the plus and 
minus signs are stored in a two dimensional array, A(X,Y). Lines 2030 to 
2090 have an inside and outside loop that counts the rows and columns of 
the grid. As the X's and Y's are counted off, the position statement places 
each sign in its proper box. The same X and Y also give the number of the 
array which holds the value for the sign that is drawn in the box. In line 
2070 a flag is set to the number of plus signs. The flag is tested in lines 2100 
and 2100. No pluses will send you to a "You Lose" line and nine pluses 
sends you to the winner's circle. Lines 2130 to 2200 are the player's move. 
Lines 2210 to 2410 juggles around the values in the arrays to set the new 
pluses and minuses. The ABS function converts all the negative values to 
positive. The values are flipped around like bowling pins in a jugglers act. 
You can pick the program apart with print statements between the lines to 
print out the values of the variables at each step. 
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1000 REM ************************************ 

1010REM* 

1020 REM* BRAIN TEASER 

1030 REM* 

1040 REM ************************************ 

1050 REM 

1060 DIM A$[20),A(3,3) 

1070 REM SKIP SUBROUTINES 

10B0GOTO 1200 

1090 REM 

1100GRAPHICS0 

1110 PRINT"}"; 

11 20 POSITION 9,4 

1 1 30 PRINT "*** BRAIN TEASER ***" 

11 40 POSITION 2,6 

11 50 RETURN 

11 60 POSITION 2,23 

1 1 70 PRINT "PRESS 'RETURN' TO CONTINUE"; 

11 80 INPUT A$ 

11 90 RETURN 

1200GOSUB 1100 

1210 PRINT "I WILL DISPLAY A 3 BY 3 GAME BOARD" 

1 220 PRINT "WITH A + IN THE CENTER. IT WILL" 

1 230 PRINT "LOOK SOMTHING LIKE THIS." 

1240 PRINT" 

1250 PRINT" -+-" 

1260 PRINT" 

1 270 PRINT "THE TRICK IS TO MOVE SO THAT THE" 

1280 PRINT "GAME BOARD LOOKS LIKE" 

1290 PRINT 

1 300 PRINT " THIS +++ NOT LIKE THIS 

1310 PRINT" +-+ 

1320 PRINT" +++ 

1330GOSUB 1160 

1340GOSUB 1110 

1 350 PRINT "YOU MAY ONLY MOVE TO AN OCCUPIED" 

1 360 PRINT "SPACE (A SPACE WITH A + ON IT)." 

1370 PRINT "THEN THE ADJACENT SQUARES WILL INVERT" 

1380 PRINT"AS WILL THE SQUARE YOU MOVE TO." 

FOR EXAMPLE TAKE THE STARTING" 

POSITION.—" 



1390 PRINT 
1400 PRINT 
1410 PRINT 
1420 PRINT 
1430 PRINT 



SINCE YOUR ONLY MOVE WOULD BE THE" 
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1440 PRINT "CENTER SQUARE THE GAME BOARD WOULD" 

1450 PRINT "NOW LOOK LIKE THIS" 

1460 PRINT" -+-" 

1470 PRINT" +-+" 

1480 PRINT" -+-" 

1490GOSUB 1160 

1500GOSUB 1110 

1510 PRINT "THEN IF YOU WERE TO MOVE IN THE" 

1520 PRINT "SECOND POSITION:" 

1530 PRINT "THE GAME BOARD WOULD LOOK LIKE THIS" 

1540 PRINT 

1550 PRINT" +-+" 

1560 PRINT" +-+" 

1570 PRINT" -+-" 

1580 PRINT 

1 590 PRINT "THEN IF YOU MOVE IN POSITION ONE" 

1600 PRINT "THE GAME BOARD WOULD THEN LOOK LIKE" 

1610 PRINT "THIS" 

1620 PRINT "-++" 

1630 PRINT "-++" 

1640 PRINT "-+-" 

1650GOSUB 1160 

1660GOSUB 1110 

1670 PRINT "SHOWN HERE ARE THE 3 DIFFERENT" 

1 680 PRINT "POSSIBLE MOVES [M] AND THE SQUARES" 

1 690 PRINT "THAT ARE EFFECTED." 

1700 PRINT 

1710 PRINT" M*- *M* -*-" 

1720 PRINT" ** *M*" 

1730 PRINT" *-" 

1740 PRINT 

1750 PRINT"REMEMBER THATTHE SQUARE YOU MOVE TO" 

1 760 PRINT "WILL ALSO FLIP." 

1770 PRINT 

1780 PRINT "TO MOVE ENTER THE NUMBER OFTHE BOX" 

1790 PRINT "YOU WISH TO MOVE TO." 

1800 PRINT "THE NUMBERS ARE:" 

1810PRINT" 123" 

1820 PRINT" 456" 

1830 PRINT" 789" 

1840GOSUB 1160 

1850GOSUB 1110 

1860 FOR X=1 TO 3 

1870 FOR Y=1 TO 3 
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1880 

1890 

1900 

1910 

1920 

1930 

1940 

1950 

1960 

1970 

1980 

1990 

2000 

2010 

2020 

2030 

2040 

2050 

2060 

2070 

2080 

2090 

2100 

2110 

2120 

2130 

2140 

2150 

2155 

2160 

2170 

2180 

2181 

2190 

2200 

2210 

2220 

2230 

2240 

2250 

2260 

2270 

2280 

2290 



A(X,Y]=0 

NEXTY 

NEXTX 

A(2,2)=1 

PRINT:REM DRAW ROWS OF BOXES 

PRINT 

[R][W][R][W][R][E]" 



[A][R][R][R][D]" 
[A][R][R][R][D]" 



[Z][R][X][R][X][R][C]" 



PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT- 
PRINT" 
PRINT" 
PRINT 
F=0 

FOR X=1 TO 3 
FOR Y=1 TO 3 
POSITION X*2+14,Y*2+7 
IF A[X,Y)=0THEN PRINT' 
IF A(X,Y)>0THEN PRINT 
NEXTY 
NEXTX 

IF F=0THEN 2450 
IF F=9THEN 2530 
PRINT 

POSITION 2,20 
PRINT "ENTER YOUR MOVE 
INPUT A$ 
PRINT 

PRINT" "; 

IF A$=""THEN A$="0" 
IF ASC[A$)<49 THEN 2470 
IF ASC(A$)>57 THEN 2470 
A=VAL(A$) 

IF A<1 OR A>9 THEN 2130 
Y=INT((A-1)/3]+1 
X=A-(Y-1)*3 
IF A(X,Y]=0THEN 2420 
A(X,Y)=ABS(A(X,Y)-1] 
IFX02THEN 2290 
A[1,Y)=ABS(A(1,Y]-1) 
A(3,Y]=ABS(A(3,Y)-1] 
IF Y02THEN 2020 
IF Y02THEN 2330 




[R]"; 

";:F=F+1 
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2300 A(X,1 ]=ABSIA[X,1 ]-1 ] 

231 A(X,3]=ABS(A(X,3)-1 ] 

2320 GOTO 2020 

2330 A(X,Y)=ABS(A(X,Y]-1 ) 

2340 IF X=3 THEN X=2 

2350 IF Y=3 THEN Y=2 

2360FORX1=XTO X+1 

2370 FOR Y1=YTO Y+1 

2380 A[X1 ,Y1 ]=ABS(A(X1 ,Y1 ]-1 ] 

2330 NEXT Y1 

2400 NEXT X1 

2410 GOTO 2020 

2420 POSITION 2,22 

2430 PRINT "THAT SPACE IS EMPTY }"; 

2440 GOTO 2020 

2450 POSITION 2,22 

2460 PRINT "THE GAME IS OVER YOU LOSE" 

2470 POSITION 2,23 

2480 PRINT "WOULD YOU LIKE TO PLAY AGAIN Y/N 

2490 INPUT A$ 

2500 IF A$="" THEN A$="N" 

2510 IF A$(1,1]="Y" THEN 1850 

2520 END 

2530 POSITION 2,22 

2540 PRINT "CONGRATULATIONS YOU WIN!" 

2550 GOTO 2470 
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Numbers away is deceptively simple, but very hard to outwit. The object is 
to eliminate as many numbers as possible from the list before you get 
stymied. A pair of random numbers represents the roll of the of dice. The 
total on the dice must be removed from the list. There are multiple 
combinations of numbers that will match the dice on the first turn. If the 
first roll was 4+5 you could choose 1+8,2+7,3+6,4+5, or 9 by itself. 
Whatever number you choose is eliminated from the list and not available 
for the next guess. The trick is to save the numbers that are most likely to 
be useful in subsequent turns! Surviving even three rolls is an effort. 

This program demonstrates the use of large characters (PRINT#6) and full 
screen graphics (GRAPHICS 2+16). The subroutine for generating the 
random number is at the beginning of the program. The flow of control 
goes around the subroutine by means of the GOTO statement in line 1080. 
This allows the subroutine to operate significantly faster than it would at the 
end of the program. Lines 1880-1920 show you how to read the function 
keys and use them in your programs. This program could be easily enhanced 
with sound routines and a flashier title screen. This is known in the trade as 
adding "bells and whistles." 
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1000 REM ************************************ 

1010REM* * 

1020 REM* NUMBERS AWAY 

1030 REM* 
1040 REM ************************************ 

1050 REM 

1060 REM DIMENSION VARIABLES 

1070 DIM A$[20),L1[9),L2(9] 

1080 GOTO 1210 

1090 POSITION 2,23 

1 1 00 PRINT "Press return to continue"; 

1110INPUTAS 

1120 RETURN 

1130 FOR J=1 TO INT(RND(1]*5]+8 

1140D1=INT[RND(1]*6)+1 

1150D2=INT(RND(1)*6)+1 

1 1 60 PLOT 7,3:PRINT #6;D1 ; 

1 1 70 PLOT 9,3:PRINT #6;D2; 

11 80 FOR DL=1 TO 10:NEXTDL 

11 90 NEXT J 

1200 RETURN 

1210GRAPHICS0 

1220 POSITION 11,4 

1 230 PRINT "*** NUMBERS AWAY ***" 

1240 POSITION 2,7 

1 250 PRINT "In this game, you will be presented" 

1 260 PRINT "with a list of numbers between" 

1270 PRINT "1 and 9." 

1280 PRINT 

1 290 PRINT "A pair of dice will be rolled and" 

1 300 PRINT "the total will be noted. You must" 

1310 PRINT "remove, from the list, a combination" 

1 320 PRINT "of numbers whose total matches the" 

1 330 PRINT "total of the dice." 

1340 PRINT 

1 350 PRINT "For example, if a seven was rolled," 

1 360 PRINT "you could remove from the list" 

1 370 PRINT "(1 ,2,4), (1 ,6), (2,5), (3,4) or just" 

1380 PRINT "plain (7)." 

1390GOSUB 1090 

1400 PRINT" esc clear"; 

1410POSITION 11,4 

1420 PRINT"*** NUMBERS AWAY***" 

1430 POSITION 2,7 
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1440 PRINT "To move in the list, use the 'OPTION'" 

1 450 PRINT "key to move left the 'SELECT' key to" 

1 460 PRINT "move right. The number you are at" 

1470 PRINT "will blink. To select a number" 

1 480 PRINT "press the 'START key. When you" 

1 490 PRINT "select enough numbers to reach the" 

1 500 PRINT "total on the dice, I will roll the" 

1510 PRINT "dice for you next try." 

1520 PRINT 

1 530 PRINT "If your total goes over the the" 

1 540 PRINT "number, the list will be restored," 

1 550 PRINT "and you will have to try again. To" 

1 560 PRINT "give up press the 'ESC key." 

1570GOSUB 1090 

15S0FOR 1=1 TO 9 

1590L1[I)=I 

1600 NEXT I 

1610GRAPHICS2+16 

1620 FOR 1=1 TO 9 

1630 PLOT (l-1]*2,1 

1640 PRINT #6;l; 

1650 NEXT I 

1660A=L1(1] 

1670 FOR l=2T0 9 

1680A=A+L1(I) 

1690 NEXT I 

1700 IF A>0 THEN 1720 

1710 PLOT 0,8:PRINT #6;"YOU GOT THEM ALL !!":GOTO 2240 

1720GOSUB 1130 

1 730 ST=0 

1740 PLOT 0,5 

1750 PRINT #6;D1;"+";D2;"=";D1+D2;""; 

1760 PLOT 0,6 

1770 PRINT #6;D1+D2;"-";ST;"=";D1+D2-ST;" "; 

1780 FOR 1=1 TO 9 

1790L2(I)=0 

1800 NEXT I 

1810TT=D1+D2 

1820 NP=1 

1830BLNK=0 

1840 IF L1(NP)>0THEN 1870 

1850NP=NP+1:IF NP=10THEN NP=1 

1860 GOTO 1840 

1870 IF PEEK[764]=28 THEN 2260 
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1880 KEY=PEEK(53279):IF KEY=7 THEN 1930 

1890 IF KEY=6 THEN 2020 

1900 IF KEY=3THEN NP=NP-1:IF NP=0THEN NP=9 

1910 IF KEY=5 THEN NP=NP+1:IF NP=10THEN NP=1 

1920 IF L1(NP]=0 THEN 1900 

1 930 BLNK=ABS{BLNK-1 ) 

1940 PLOT (NP-1]*2,1 

1950 IF BLNK=0THEN PRINT #6;" "; 

1960 IF BLNK=1 THEN PRINT #6;NP; 

1970 REM WAIT 

1980 POKE 540,25 

1 990 IF PEEK(540] THEN 1 990 

2000 IF BLNK=1 THEN 1870 

2010 GOTO 1930 

2020 PLOT (NP-1]*2,1 

2030 PRINT #6;""; 

2040ST=ST+NP 

2050L1(NP]=0 

2060 L2(NP)=1 

2070 PLOT 0,6 

2080 PRINT #6;TT;"-";ST;"=";TT-ST;" "; 

2090 POKE 540,30 

2100 IF PEEK[540) THEN 2100 

2110 IF ST<TT THEN 1830 

21 20 IF ST=TT THEN 1 660 

21 30 FOR 1=1 TO 9 

2140 IF NOT L2(l) THEN 2190 

2150L1(I]=I 

2160L2(I]=0 

2170PLOT(I-1]*2,1 

2180 PRINT #6;l; 

21 90 NEXT I 

2200 ST=0 

2210 PLOT 0,6 

2220 PRINT #6;TT;"-";ST; , '=";TT-ST;" "; 

2230 GOTO 1830 

2240 POKE 540,255 

2250 IF PEEK(540) THEN 2250 

2260 GRAPHICS 

2270 POSITION 11,4 

2280 PRINT "*** NUMBERS AWAY ***" 

2290 POSITION 2,7 

2300 GT=0 

2310 FOR 1=1 TO 9 
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2320 IF NOT L1 [I] THEN GT=GT+I 

2330 NEXT I 

2340 PRINT 

2350 PRINT "You got ";GT;" out of 45 "; 

2360 PRINT 

2370 PRINT "That's"; 

2380 ON INT(GT/5] GOTO 2390,2410,2430,2450,2470,2490,2510,2530,2550 

2390 PRINT "THE ABSLOUTE WORST !!!" 

2400 GOTO 2570 

2410 PRINT "EXTREMELY POOR !!!" 

2420 GOTO 2570 

2430 PRINT "TERRIBLE!!!" 

2440 GOTO 2570 

2450 PRINT "VERY BAD !!!" 

2460 GOTO 2570 

2470 PRINT "JUST SO-SO !!!" 

2480 GOTO 2570 

2490 PRINT "FAIR..." 

2500 GOTO 2570 

251 PRINT "PRETTY GOOD ..." 

2520 GOTO 2570 

2530 PRINT "GREAT!!!" 

2540 GOTO 2570 

2550 PRINT"PERFECT !!!!!!!" 

2560 GOTO 2570 

2570 PRINT "Would you like to play again Y/N "; 

2580 INPUT A$ 

2590 IF LEN(A$) THEN IF A$(1 ,1 )= Y" THEN 1 580 

2600 END 
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Test your reasoning ability on this mind expanding game. You are given a 
list of integers that must be unscrambled by reversing the order of the list. 
The boxes for the numbers are printed in lines 1800-1820, and remain on 
the screen when new numbers are printed in each loop. The POSITION 
command makes sure the numbers go into the proper places inside the 
boxes. The numbers that are scrambled and reversed are stored in a numeric 
array. The variable I in 1830-1860 determines the proper position for the 
number and the correct array element. Lines 1990-2040 do the reversing. 
The beginning position is stored in A. The numbers from A to the end of the 
line must be reversed. Line 1990 figures out the middle of the group of 
numbers that will be reversed. Lines 2000-2040 are a FOR-NEXT loop that 
swaps the numbers. The variable T is a temporary variable that stores the 
number being switched. If you want to see how this switching works, insert 
the STOP command in different parts of the program. When the program 
has stopped type: 
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FOR 1=0 TO 9 :PRINTL1(I]:NEXTI and press RETURN 

This is an immediate mode command, so everything has to be on one line 
to work. You can restart the game with the CONT command. 

How does the program know when the numbers are in the correct order? 
This is done with a clever use of Boolian algebra in line 1910 A=A+(L1(I)=I). 
Ll(I) is the array element and I is the position in the array. The numbers in 
the top row are the same as the positions. For every match between the 
array element and the position (Ll(I)=I) will be true and equal to 1. A loop 
from 1900-1920 tests all 10 elements and adds up the number of "trues." If 
all 10 are true then 1930 sends you to the winner's circle. 



1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
11 60 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 



□ p |W| ************************************ 

REM * * 

REM * 



REVERSER 



REM * 

pp^ ************************************ 

REM 

REM DIMENSION VARIABLES 

DIM A$(20),L1(10) 

GOTO 1130 

POSITION 2,23 

PRINT "Press return to continue "; 

INPUT A$ 

RETURN 

GRAPHICS 

POSITION 13,3 

PRINT"*** REVERSER ***" 

POSITION 2,6 

PRINT "In this game, you are given a list of" 

PRINT "numbers from to 9. The list will" 

PRINT "not be in sequence. It is your job" 

PRINT "to sort the numbers into ascending" 

PRINT "order." 

PRINT 

PRINT "You arrange the list be reversing the 

PRINT "order of it. You input the starting" 

PRINT "column that is to be reversed, and" 

PRINT "that column, all the way through to" 

PRINT "column nine, will be reversed." 

GOSUB 1090 

PRINT" esc clear"; 

POSITION 13,3 




_ / 
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1310 PRINT"*** REVERSER ***" 
1320 POSITION 2,7 
1 330 PRINT "If you had this list:" 
1340 PRINT 

'Positions:" 



1 :2 :3 :4 :5 :B :7 :8 :9 



1 :9 :8 :7 :B :5 :2 :3 :4 



1 :2 :3 :4 :5 :B :7 :8 :9 



1350 PRINT 

1360 PRINT" :0 

1370 PRINT" :-- 

1380 PRINT" :0 

1390 PRINT 

1 400 PRINT "And reversed it a position 7 it would' 

1410 PRINT "look like this:" 

1420 PRINT 

1430 PRINT "Positions:" 

1440 PRINT" :0 

1450 PRINT" :-- 

1 460 PRINT" :0 

1470 PRINT 

1480GOSUB 1090 

1490 PRINT"}"; 

1500 POSITION 13,3 

1510 PRINT"*** REVERSER ***" 

1520 POSITION 2,7 

1 530 PRINT "A final reversal at position 2 would" 

1 540 PRINT "complete the list as this" 

1550 PRINT 

1560 PRINT "Positions:" 



1 :9 :8 :7 :6 :5 :4 :3 :2 




1 :2 :3 :4 :5 :6 :7 :8 :9 :" 



1 :2 :3 :4 :5 :6 :7 :8 :9 



1570 PRINT" :0 

1580 PRINT" :-- 

1590 PRINT" :0 

1600 PRINT 

1 61 PRINT "You win when the list is sorted in" 

1 620 PRINT "ascending order as shown above." 

1630 PRINT 

1640 PRINT "Good luck!!!" 

1650GOSUB 1090 

1660 FOR l=0TO9 

1670L1(I]=I 

1680 NEXT I 

1690 FOR l=0TO9 

1700X=INT(RND(1)*10] 

1710T=L1[I] 

1720L1(I)=L1(X] 

1730L1(X]=T 

1740 NEXT I 
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1750 PRINT" esc clear"; 

1760 POSITION 13,3 

1770 PRINT"*** REVERSER ***" 

1780 POSITION 2,7 

1790 PRINT "Positions:" 











2 :3 :4:5 :6 :7 :8 :9 



2 :3 :4:5 :B :7 :8 :9 



1800 PRINT" 

1810PRINT" 

1820 PRINT" 

1830 FOR l=0TO9 

1840 POSITION 1*3+9,10 

1850 PRINT L1(l] 

1860 NEXT I 

1870 PRINT 

1880 PRINT "Tries :";TR 

1 890 A=0 

1900 FOR l=0TO 9 

1910A=A+(L1(I)=I] 

1920 NEXT I 

1930 IF A=10 THEN 2070 

1940 PRINT 

1 950 PRINT "Reverse at which position "; 

1960 INPUT A$ 

1970A=INT[VAL(A$]) 

1 980 IF A<0 OR A>9 THEN 1 830 

1990MDL=INT((9-A]/2) 

2000 FOR l=ATO A+MDL 

2010T=L1(I) 

2020L1(I)=L1(9+A-I] 

2030L1(9+A-I]=T 

2040 NEXT I 

2050TR=TR+1 

2060 GOTO 1830 

2070 POSITION 2,16 

2080 PRINT "YOU GOT IT III" 

2090 PRINT "It took you ";TR;" tries." 

21 00 PRINT "Would you like to play again Y/N "; 

2110INPUTAS 

21 20 IF LEN[A$) THEN IF A$="Y" THEN 1 660 

2130 END 
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Here is a game that is guaranteed to wrinkle your brow. All the action takes 
place in a row of nine boxes. The four "+" (plus) signs on the right have to 
trade places with the four "-" (minus) signs on the left. There are at least 
511 wrong combinations of moves assuming you don't repeat youself, and 
only one correct combination. The game board is drawn in lines 1640 to 
1680. You'll see the borders of the game board squares appear on the Atari 
screen when you enter the control characters listed in the book. Lines 1060 
to 2050 reads the keyboard and gives a value to A that corresponds to the 1 
to 9 keys on the Atari. This is faster than asking for an input that requires a 
<RETURN>. In lines 1770 to 1830 a FOR NEXT loop sets flag F to 1 if the 
the game is not solved. There is no test for "hung up," but you will know 
when you are stuck and will voluntarily give up. 
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\ f Al Al A 1. 1 L. ft /l ^¥^^¥v^^^¥^^¥^^^^^^^^^^2p^sts2T--p-F'tS"i-***** 

1010REM* * 

1020 REM* TRANSITION 

1030 REM* * 

A PM PI R F l\A ************************************ 

1050 REM 

1060 REM DIMENSION VARIABLES 

1070 DIM A$[20],L1[10) 

1080 REM 

1090 REM SKIP SUBROUTINES 

11 00 GOTO 1150 

11 10 POSITION 2,23 

1 1 20 PRINT "Press 'RETURN' to continue "; 

11 30 INPUT A$ 

1140 RETURN 

11 50 GRAPHICS 

1 1 60 T=0 

11 70 POSITION 11,3 

1 1 80 PRINT "*** TRANSITION ***" 

11 90 POSITION 2,6 

1 200 PRINT "The game of Transition will present" 

1 21 PRINT "you with a list of nine digits. The" 

1 220 PRINT "list will look like this:" 

REM DRAW ROWS OF BOXES 

[R][W][R][W][R][W][R][W][R][W][R][W][R][W][R][W][R][E]" 
COLUMN :1:2:3:4:5:6:7:8:9:" 

[A][R][R][R][R][R][R][R][R][R][D]" 

:[T]:[T]:[T]:[T]: :::::" 

[Z][R][X][R][X][R][X][R][X][R][X][R][X][R][X][R][X][R][C]" 




1230 PRINT: 

1240 PRINT' 

1250 PRINT' 

1260 PRINT 

1270 PRINT' 

1280 PRINT' 

1290 PRINT 

1 300 PRINT "The object of the game is to" 

1310 PRINT "transpose the original character" 

1 320 PRINT "positions. Try to reverse the" 

1 330 PRINT "dots ([T]) and the plus signs [] into" 

1 340 PRINT "one another's previous positions." 

1350GOSUB 1110 

1360 PRINT"}"; 

1370 POSITION 11,3 

1 380 PRINT "*** TRANSITION ***" 

1390 POSITION 2,6 

1 400 PRINT "The '[T]' character can only move to" 

1 41 PRINT "the right, and the " character can" 

1 420 PRINT "only move to the left." 

1430 PRINT 
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1440 PRINT "A move is made by moving to an empty" 

1450 PRINT "space, or by jumping over an opposing" 

1 460 PRINT "piece into an empty space." 

1470 PRINT 

1 480 PRINT "To make a move, you enter the" 

1490 PRINT "position number of the moving piece." 

1 500 PRINT "To quit, enter zero [0]." 

1510GOSUB 1110 

1520 PRINT"}"; 

1530 POSITION 11,3 

1 540 PRINT "*** TRANSITION ***" 

1550 POSITION 2,6 

1560 FOR 1=1 TO 9 

1570L1[I]=0 

1580 NEXT I 

1590 FOR 1=1 TO 4 

1600L1(I)=1 

1610L1(10-I)=2 

1620 NEXT I 

1630 NM=0 

1640 PRINT 

1650 PRINT 

1660 PRINT" 

1670 PRINT" 

1680 PRINT" 

1690 POKE 752,1 

1700 PRINT 

1710 FOR 1=1 TO 9 

1720 POSITION 2*1+9,9 

1730 IF L1[l]=1 THEN PRINT 

1740 IF L1(l)=2 THEN PRINT""; 

1750 IF L1(I)=0THEN PRINT""; 

1760 NEXT I 

1770F=0 

1 780 IF L1 (5)< >0 THEN F=1 

1790 FOR 1=1 TO 9 

1800 IF K5THEN IF L1(l)=1 THEN F=1 

1810 IF l>5THEN IF L1(I]=2THEN F=1 

1820 NEXT I 

1830 IF F=0THEN 2320 

1840 POSITION 2,12 

1850 PRINT "Move [0-9] ? 

1860 POSITION 14,12 

1870B=PEEK(764) 



[R][W][R][W][R][W][R][W][R][W][R][W][R][W][R][W][R][E]" 
COLUMN :1:2:3:4:5:6:7:8:9:" 

[A][R][R][R][R][R][R][R][R][R][D]" 

:[T]:[T]:[T]:[T]: :::::" 

[Z][R][X][R][X][R][X][R][X][R][X][R][X][R][X][R][X][R][C]" 



■P7 



[T] esc ctl right arrow " 
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18B0A=-1 

1 890 T=T+1 

1900 IF T<6 THEN 1960 

1910T=0 

1 920 BLNK=ABS[1 -BLNK] 

1930 IF BLNK THEN PRINT"" 

1940 IF BLNK=0THEN PRINT""; 

1950 POSITION 14,12 

1960 IF B=50 THEN A=0 

1970IFB=31 THEN A=1 

1980 IF B=30THEN A=2 

1990 IF B=26THEN A=3 

2000 IF B=24THEN A=4 

2010 IF B=29THEN A=5 

2020 IF B=27 THEN A=6 

2030 IF B=51 THEN A=7 

2040 IF B=53THEN A=8 

2050 IF B=48THEN A=9 

2060 IF A=-1 THEN 1870 

2070 POKE 764,255 

2080 PRINT A; 

2090 POSITION 2,14 

2100 PRINT" "; 

21 10 IF A=0 THEN 2320 

2120 IF L1(A)>0THEN 2160 

2130 POSITION 2,14 

21 40 PRINT "That space is empty} "; 

21 50 GOTO 1860 

2160 IF L1(A)=1 THEN D1=1 

2170IFL1(A]=2THEN D1=-1 

2180 IF A+D1=0 THEN 2200 

2190 IF A+DK10 AND A+D1>0THEN 2230 

2200 POSITION 2,14 

221 PRINT "It cannot move further}"; 

2220 GOTO 1860 

2230 IF L1(A+D1]>0THEN 2260 

2240L1(A+D1)=L1(A] 

2250 GOTO 2290 

2260 IF A+D1+D1>9 OR A+D1+DK0THEN 2200 

2270 IF (L1 (A+D1 ]=L1 (A)] OR (L1 (A+D1 +D1 )>0] THEN 2200 

2280 L1 (A+D1 +D1 ]=L1 (A) 

2290L1(A)=0 

2300NM=NM+1 

2310GOTO 1710 
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2320 REM GAME OVER 

2330 POKE 752,0 

2340 POSITION 2,14 

2350 PRINT "The game is over !!! " 

2360 IF F=0THEN 2400 

2370 PRINT "You got stuck after ";NM;" moves." 

2380 PRINT "Better luck next time." 

2390 GOTO 2420 

2400 PRINT "You did it!!!" 

2410 PRINT "And it only took you ";NM;" moves." 

2420 PRINT 

2430 PRINT "Would you like to play again Y/N "; 

2440 INPUT A$ 

2450 IF LEN(A$) THEN IF A$(1 ,1 )="Y" THEN 1 520 

2460 END 
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The origins of Nim go back to the ancient civilization of Macedonia. The 
game was said to be a favorite pastime of Alexander the Great's quartermasters, 
who would swindle the poor foot soldiers out of their last Drachma. In our 
version you may select between five and 26 matches. The computer graciously 
allows you the option of going first. You may take one to three matches, 
and the computer takes one to three. Whoever is forced to take the last 
match is the loser. The program draws the matches in lines 1080 to 1160. 
When the matches are taken away they are un-drawn in black in lines 1530 
to 1610. Change the color numbers to see which command draws which 
parts. Lines 1310 to 1360 is the computer's fiendish move. At the beginning 
of the computer's move, the matches remaining are in the variable M. To 
see how the program works put a GOTO at the beginning of the program to 
bypass everything but the computer's calculation. 
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10 GOTO 1305 

Now put in your own value for M. 

1305 INPUT M 

In line 1310 the computer subtracts four from M divides the remainder by 
four to get the number of matches to subtract in R. Add a line to print out R. 

1315 PF)INT"R=";R 

If R is any number but one, the computer branches to 1350 and figures out 
a value for C that is a "remainder" when R is divided by four. This C value 
will be subtracted from the stack of matches. If R is one the computer 
subtracts a random number from one to three. 

1355 PRINT "C=";C 

Add a line to loop around, and you can try out all the possible plays the 
computer will make. 

13B5 GOTO 1305 

Breaking into a program to enter your own values for variable, and printing 
out the resulting variables is a good way to figure out how a program works. 

1000 REM ************************************ 
1010 REM* * 

1020 REM* NIM * 

1030 REM* * 

1040 REM ************************************ 

1050 REM 

1060 DIM A$[2) 

1070 GRAPHICS 

1080 POSITION 14,3 

1090 PRINT"*** NIM ***" 

1100 PRINT 

1110 PRINT 

11 20 PRINT "THIS IS THE GAME OF NIM. TO PLAY" 

1 1 30 PRINT "YOU ENTER THE NUMBER OF MATCHES TO" 

1140 PRINT "REMOVE. THE COMPUTER WILL THEN MAKE" 

1 1 50 PRINT "IT'S MOVE. THE ONE WHO TAKES THE" 

1 1 60 PRINT "LAST MATCH LOSES." 

1170 POSITION 2,23 
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1 180 PRINT"PRESS 'RETURN' TO CONTINUE."; 

11 90 INPUT A$ 

1200 PRINT"}" 

1210 POSITION 14,3 

1220 PRINT"*** NIM ***" 

1230 PRINT :PRINT 

1 240 ? "HOW MANY MATCHES? ( 4 TO 26]" 

1 250 INPUT A$:IFA$="" THEN A$="0" 

1 260 M=VAL(A$) 

1270 IF M<4 OR M>26THEN 1250 

1280 GRAPHICS 5 

1 290 L=0 

1300N=M 

1310W=M 

1 320 SETCOLOR 0,3,6 

1330SETCOLOR 1,1,10 

1340 FOR 1=1 TO M 

1350 COLOR 2 

1360 PLOT 3*1,5 

1370DRAWTO3*I,15 

1380 COLOR 1 

1390 PLOT 3*1,4 

1400 NEXT I 

1410? "DO YOU WANT TO MOVE FIRST?" 

1420 INPUT A$ 

1430 IF A$(1,1)="N" THEN 1540 

1440? "THERE ARE NOW";M;" MATCH(ES)." 

1450? "TAKE 1 TO 3 MATCHES"; 

1460 INPUT A$:IFA$="" THEN A$="0" 

1470H=VAL(A$] 

1480 IF H>3 OR H<1 OR H>M THEN PRINT "BAD NUMBER. 

TRY AGAIN.":GOTO 1440 
1490X=L+H 
1500GOSUB 1770 
1510 L=X 
1520M=M-H 
1530 IF M=0THEN 1690 
1540 REM 

1550 IF M=1 THEN 1750 
1560R=M-4*INT(M/4) 
1570 IF R<>1 THEN 1600 
1580C=INT[3*RND(1])+1 
1590 GOTO 1610 
1600 C=[R+3)-4*INT[(R+3)/4] 
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1B10X=L+C 

1620? "MY TURN, I'M THINKING" 

1630GOSUB 1770 

1 640 L=X 

1650M=M-C:IF M=0THEN 1750 

1660GOSUB 1770 

1 670 ? "I TOOK ";C;" MATCH(ES)" 

1680 GOTO 1440 

1690 REM 

1700? "I WON! BETTER LUCK NEXT TIME" 

1710? "DO YOU WANT TO TRY AGAIN " 

1720 INPUT A$ 

1730 IF A$[1,1]< >"N" THEN 1240 

1740 PRINT "THANKS FOR THE GAME":END 

1750? "YOU WON!!! NICE GOING":GOTO 1710 

1760? 

1770 REM 

1780 COLOR 

1790 FOR l=LTOX 

1800 FOR J=1 TO 12 

1810 PLOT 3*I,3+J 

1820 NEXT J 

1830 FOR K=1 TO 10 

1840 NEXT K 

1850 NEXT I 

1860 RETURN 
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CRYPTOGRAM 
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During World War II American scientists were working on large "number 
crunching" machines to do ballistics calculations. These machines evolved 
into the computers of today. At the same time the British were working on 
machines to code and decode secret messages that are a key part of military 
operations. Their work made a vital contribution to the development of 
programming. The underlying principle in decoding is the frequency table 
that lists the alphabet in the order of the frequency that the letters appear in 
English text. This alphabet is stored in our decoder program in line 1080. 
Frequency tables have been constructed for other languages. One of the 
easiest ways to break a code is to dupe the enemy into sending a known 
message in their code; this was called a "Trojan Horse." Double agents 
would leak fake messages to the enemy in hopes that enemy radio operators 
would send these known messages in code. The code our program works 
with is a straight substitution type. The most likely answer is generated first, 
then you are invited to tinker with additional substitutions suggested by a 
few letters that string together in sensible patterns. The longer the coded 
message is, the better chance a few substitutions will generate coherent words. 
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1000 
1010 

1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 



************************************ 
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REM 
REM* 
REM * 

REM * * 

REM ************************************ 

REM 

DIM A$(200),B$(200),T$(1],Y$(2] 

DIM FR$(36],C(36],R(36),S$(36) 

FR$="ETAONIRSHDLFCMUGYPWBVKXIQZ091 2345678" 

GOTO 1530 

GRAPHICS 

PRINT"}" 

POSITION 10,4 

PRINT"*** DECODE ***" 

POSITION 2,7 

RETURN 

POSITION 2,23 

PRINT "PRESS 'RETURN' TO CONTINUE"; 

INPUT A$ 

RETURN 

FOR X=1 TO 36 

C(X)=0 

NEXTX 

FOR X=1 TO LEN(A$] 

L=ASC[A$(X,X])-64 

IF K0THEN L=L+43 

C(L]=C(L]+1 

NEXTX 

S$="ABCDEFGHIJKLMNOPQRSTUVWXYZ01 23456789" 

F=0 

FOR X=1 TO 35 

IF C(X]>=C(X+1) THEN 1380 

T=C(X]:C(X)=C(X+1) 

C[X+1]=T 

T$=S$(X,X] 

S$[X,X)=S$[X+1,X+1) 

S$(X+1,X+1)=T$ 

F=1 

NEXTX 

IF F=1 THEN 1290 

T=0 

FOR X=1 TO 36 

IF C[X]=0 AND T=0 THEN T=X-1 

NEXTX 
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1440S$=S$[1,T] 

1450 REM 

14B0B$=A$ 

1470 FOR X=1 TO LEN(A$] 

1480 FOR Y=1 TO LEN(S$) 

1490 IF A$(X,X]=S$(Y,Y] THEN B$(X,X)=FR$(Y,Y] 

1500NEXTY 

1 510 NEXT X 

1520 RETURN 

1530GOSUB 1100 

1540 PRINT 

1550 PRINT" ENTER A CRYPTOGRAM AND I WILL HELP" 

1 560 PRINT "YOU SOLVE IT. I KNOW THE MOST" 

1570 PRINT "COMMONLY USED LETTERS AND THEIR ORDER" 

15B0 PRINT "WITH THIS INFORMATION AND SOMEONE" 

1 590 PRINT "LIKE YOURSELF TO HELP ME WE CAN SOLVE" 

1 600 PRINT "ALMOST ANY CRYPTOGRAM." 

1610PRINT 

1620 PRINT"FIRST YOU TYPE IN THE CRYPTOGRAM." 

1630 PRINT"I WILL PERFORM A COUNT AND REPLACE" 

1640 PRINT "THE LETTERS WITH THEIR POSSIBLE REAL" 

1650 PRINT "LETTER." 

1660GOSUB 1160 

1670GOSUB 1110 

1 680 PRINT "YOU CAN SUGGEST PROPER " 

1 690 PRINT "REPLACEMENTS ONE AT A TIME BY TYPING" 

1700 PRINT "THEM IN WHEN I ASK. FOR EXAMPLE IF" 

1 710 PRINT "THE CODE WAS WIG AND THE MESSAGE WE" 

1 720 PRINT "HAD DECODED SO FAR WAS TUE' YOU" 

1730 PRINT "COULD TYPE IH MEANING REPLACE THE I" 

1740 PRINT "WITH H. AND WE WOULD GET THE CORRECT" 

1750 PRINT "ANSWER." 

1760GOSUB 1160 

1770GOSUB 1110 

1 780 PRINT "INPUT YOUR CRYPTOGRAM 200 LETTERS MAX" 

1790 PRINT "WITHOUT SPACES OR SPECIAL CHARACTERS" 

1800 PRINT 

1810PRINT"ENTER: "; 

1820 INPUT A$ 

1830GOSUB 1200 

1840GOSUB 1110 

1850 PRINT 

1860 PRINT A$ 

1870 PRINT B$ 
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1880 PRINT 

1890 PRINT "REPLACE AB "; 

1900 INPUT Y$ 

1910 IF Y$="" THEN END 

1 920 T$=Y$(1 ,1 ]: Y$=Y$(2,2) 

1930F=0 

1940 FOR X=1 TO LEN(S$) 

1950 IF S$(X,X)=T$ THEN FR$(X,X)=Y$:F=1 

1960 NEXT X 

1970 IF F=0THEN 2000 

1 980 S$(X,X]=T$ 

1990FR$(X,X]=Y$ 

2000GOSUB 1460:GOTO 1840 
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You may have watched the movie "War Games" and wondered how the 
computer could try every possible combination of phone numbers. This is a 
trivial task for a computer. There are fiendish advertisers who own 
computers that do nothing but phone through all possible combinations of 
phone numbers to play recorded messages to innocent persons who probably 
are eating dinner or taking a shower. We will not encourage any such anti- 
social behavior, but the following program will generate a list of all possible 
combinations of letters that can be made out of your phone number. You 
might have some easy-to-remember combination that you can tell people so 
they will never forget you. "Hi my name is Joe and my phone number is 
TREETOP." One slight catch, if your number has a or 1 the program 
cannot use the number, because these numbers do not have equivalent 
letters. You could modify the program to use a Z for 0, but the number of 
words with Z's in them does not merit the effort. Lines 1340 to 1520 format 
and error trap your input. 15 30 to 1590 opens the printer to I/O #1. 



135 



"N 



1610 N is set to the length of the phone number. 

1630 starts a loop for each number. 

1640 C will count which letter of the groups of three to chose. 

1650 A will chose the correct group of three letters stored in D$. The 2 is 

subtracted from the number in B$ because the phone starts with ABC 

on the 2 key instead of on 0. 
1660 prints the first combination of possible letters. 
1680-1700 prints the correct number of spaces to line up the printer output 

in columns. You are allowed to put 0's in the first 3 places or the last 4 

places of your phone mumbers and generate words from the rest. The 

spaces will fill where you put 0's in the input. 
1 720 to 1 840 counts through the possible combinations and prints the results. 
1740 C(X) counts off position 1,2, or 3 in the 3 letter groups for each 

numeral. When all three letters have been counted C is set to 1. 
1750 A chooses the correct group of three. 
1760 B takes the value for the correct group of three letter (A) and adds the 

value for the correct position in the group (C) 
1770 Each position of C$(X,X) is assigned the correct value from alphabet 

string D$(B,B). If you want to see this counter in action add a line to 

print out the values and the resulting letter. 
1765 PRINT "A=";A;" C=";C"; B=";B;" IS ";D$(B,B). 
1780-1840 are the tests that count up the progress of the printouts and send 

the loop back until all the numbers have been decoded and printed. 

The CN counter puts in a blank line after every 10 print-outs. 
1790 counts down the numerals still to be calculated. If the three letter 

group was finished in 1740 C will be set to 1 and the X value will be 

decreased by 1. If C is still at then line 1790 is skipped and the 

program goes back to 1740. 

This type of program is called a conditional loop. It keeps on printing out 
until every combination has been tried. 

1000 REM ************************************ 
1010REM* * 

1020 REM* PHONE DECODER * 

1030 REM* 
1040 REM ************************************ 

1050 REM 

1060 DIM A$(10),B$[10),C$(7),D$(24],C(10),SP$[10) 

1070 D$="ABCDEFGHIJKLMNOPRSTUVWXY" 

1080 REM 

1090 GOTO 1200 

11 00 GRAPHICS 

11 10 PRINT"}" 

11 20 POSITION 10,3 



136 



1130 PRINT"*** PHONE DECODER ***" 

1140 POSITION 2,7 

1150 RETURN 

1160 POSITION 2,23 

1 1 70 PRINT "PRESS 'RETURN' TO CONTINUE"; 

11 80 INPUT A$ 

11 90 RETURN 

1200GOSUB 1100 

1210 PRINT" THIS PROGRAM WILL TAKE A 7 DIGIT" 

1220 PRINT"PHONE NUMBER IN THE FORM NNN-NNNN" 

1 230 PRINT "AND CONVERT IT TO ALL OF THE POSSIBLE" 

1240 PRINT"ALPHA COMBINATIONS FOR YOUR" 

1 250 PRINT "INSPECTION." 

1260 PRINT 

1270 PRINT" UNFORTUNATLY SINCE THE AND THE 1" 

1280PRINT"IN PHONE NUMBERS DO NOT HAVE ALPHA" 

1290 PRINT "EQUIVALENTS PHONE NUMBER ELEMENTS" 

1300 PRINT "WITH THOSE NUMBERS CANNOT BE DECODED." 

1310GOSUB 1160 

1320GOSUB 1110 

1330 PRINT 

1340 PRINT "ENTER A PHONE NUMBER"; 

1350 INPUT A$ 

1360 IF A$="" THEN END 

1370 PRINT 

1380 IF LEN(A$]< >8 THEN 1320 

1390F=0 

1400 FOR X=1 TO 3 

1410 IF VAL(A$(X,X)]<2 THEN F=1 

1420 NEXT X 

1 430 B$="" 

1440 IF F=1 THEN 1460 

1450 B$=A${ 1.3) 

1460 F=0 

1470 FOR X=5 TO 8 

1480 IF VAL(A$(X,X])<2 THEN F=1 

1490 NEXT X 

1500 IF F=1 THEN 1520 

1510 B$[LEN[B$)+1 ,LEN(B$)+5]=A$(5,8] 

1 520 IF B$="" THEN PRINT "CAN'T DO THAT ONE":GOTO 1 330 

1530 CLOSE #1 

1540 PRINT 

1550 PRINT "PRINTER [P:J OR SCREEN [E:] "; 

1560 INPUT A$ 
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1 570 IF A$< >"P:" THEN A$="E:" 

1580 REM 

1590 OPEN #1,8,0,A$ 

1600 PRINT #1 /'COMBINATIONS FOR";B$ 

1610N=LEN(B$] 

1 620 C$="" 

1630 FOR X=1 TO N 

1640C(X)=0 

1650A=VAL[B$(X,X)]-2 

1 660 C$(X,X]=D$[A*3+1 ,A*3+1 ] 

1670 NEXT X 

1680 IF LEN(B$]=4THEN SP$=" " 

1690 IF LEN(B$]=3THEN SP$=" " 

1700 IF LEN(B$]=7 THEN SP$=" " 

1710CN=0 

1720 PRINT #1;C$;SP$; 

1730X=N:F=0:C=0 

1740 C(X]=C(X)+1 :IF C(X]=3 THEN C(X]=0:C=1 

1750A=VAL(B$(X,X)]-2 

1760B=A*3+1+C(X) 

1770C$(X,X]=D$(B,B) 

1780 IF C=0 THEN 1820 

1790X=X-1 

1 800 C=0 

1810IFX>0THEN 1740 

1820CN=CN+1:IF CN=10THEN PRINT #1:CN= 

1830 IF X>0 THEN 1720 

1840 PRINT #1 



=0 
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Games of catch-me-if-you-can written in BASIC tend to exaggerate the 
leisurely pace of higher level languages. Mubble Chase is a snail's paced 
version of SNACK ATTACK"" or PAC MAN™, but there is a lot to be learned 
about graphics, loops, grids, color and arrays with this 'granddaddy' of the 
arcades. If you spend some time understanding this game, you will be able to 
program lots of graphic effects in your own games. For this reason, Mubble 
Chase was chosen for a lengthy description of all the BASIC statements. 
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Lines 1000 to 1100 are the title screen for the listings. Statements preceeded 
by REM appear in the listing but have no effect on the program when it 
runs. Use lots of REMS in your program even if you are the only one who 
will ever see them. Make notes about different versions and always include 
the date. 



1 120 DIMension variables and strings before you use them. Always do this 
early in the program in a place that won't be executed again during the 
running of the program. If you DIM a variable just before you use it there is 
a possibility it will be DIMenioned more than once and generate an error. 
Atari's BASIC editor makes it easy to add variables and strings to an earlier 
DIM statement, and leaving lots of spaces in your numbering will also allow 
you to add lines to the beginning of the program if needed. 

Lines 1130,1170 are the framework of the structured program discussed in 
the introduction. Mubble Chase was written with all the GOSUBs numbered 
in even thousands, but the final program was renumbered with a renumber 
utility that evenly spaces the program by 10s and takes out any blanks in the 
sequence of line numbers. The renumber utility also renumbers the lines 
referred to in the GOSUBs and other commands so that the program runs 
correctly after renumbering. 




1220-1320 is the first text screen of instructions. 
1330 sends the program to the clear screen subroutine. 
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1 340-1460 is a second screen full of instructions. 1 340 starts with the clear 
screen command. In order to put a control function into your program it 
must first be in a print statement and be preceeded by [esc] when typed. On 
the Atari screen, the clear screen command appears as a slant-back arrow, 
and on most printers it comes out as a close curly bracket "}". A set of 
arrows and directions are drawn by lines 1420-1460. Getting the arrow to 
print on the screen requires three escapes in a row to be typed. The first 
[esc] instructs the computer to print the next control character into the 
listing instead of executing it directly. The next [esc] is then printed into the 
program line. The third [esc] instructs the computer to enter the next 
control character into the program line, and this character is the arrow key. 
The Atari screen will show a little EC character and the arrow in the print 
statement. If you only typed one [esc] the arrow would be in the program 
line, but when the program was run the arrows would be executed rather 
than printed and would move the cursor around just as it does in editing. 




1490-1 500 is a subroutine to hold the title text on your screen until you 
press RETURN. Subroutines are a handy device for performing the same 
action a number of times. 

1480 RETURN'S the program to the next line after the GOSUB in 1130. 
The program is then sent to 1510 for the setup section. Notice that the flow 
of the program goes around the subroutine lines 1490-1 500. This subroutine is 
"nested" in a larger subroutine, so getting into these lines by mistake would 
get a RETURN from the wrong location and your program would soon be in 
the "Twilight Zone." If your program wasn't already in a subroutine and fell 
into one the computer would generate ERROR- 16 AT LINE X - RETURN 
without GOSUB. 
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1540 sets the graphics to mode 5 and adds 16 to fill in the text area at the 
bottom of the screen with graphics. This mode gives 80 columns by 48 rows 
and four colors. 

1550 SETCOLOR is the command the sets up the values for the entire 
screen. COLOR sets the color to be plotted at a single point or line. The 
first value of SETCOLOR is the register number. Registers 0,1 and 2 hold 
the foreground colors and 4 is the register that holds the background color. 
The second value is the color and the third value is the luminance (brightness). 
You can experiment with other SETCOLOR commands and get a feel for 
the color possabilities of the Atari. Disconnect line 1550 from the program 
by using the [ctrl] and arrow keys to put the cursor in the space to the right 
of number 1550. Type three [ctrl] [insert] to make a space and type REM in 
front of the line: 1550 REM SETCOLOR 0,3,9 Now use lines 1551-1559 to 
add other SETCOLOR combinations to experiment on. 

1 560-1610 draws an outline box in COLOR 1 . After a COLOR has been plotted 
SETCOLOR will change all the parts of the sceen that contain that color. 

1620-1640 sets a value to be used as the color for the Mubble Eaters in the 
play section. 

1650-1730 draws the grid using FOR-NEXT, PLOT, and DRAWTO. The 
loop starts with 15 as the left border, 61 as the right border, and counts by 
4. At each interval (I) a point is plotted at the top (1,3) and a line drawn from 
there to the bottom (1,42). Another FOR-NEXT loop draws the horizontal lines. 

1740-1790 draws the food points at each intersection using nested FOR- 
NEXT loops. If you've never met a nested loop before there is a technique 
for demonstrating these loops. Change 1540 to GRAPHICS 5, this will leave 
a space at the bottom of the screen for text. Add these lines: 

1772 PRINT "l=";l;"J=";J, 

1774 FOR PAUSE=1 TO 200:NEXT PAUSE 

The calculations of the food point locations will print out below the grid. 
You will be able to watch the points being drawn because the delay loop will 
slow down the operation of the program. Adding PRINT statements for 
variables is a good way to see how things work in the program. Change 1540 
back to GRAPHICS 5+16 when you're done experimenting. 
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When the play section starts the three Mubble Eaters are drawn by lines 
1850-1970. The position of the Mubble Eater is stored in a two-dimensional 
array. ME(1,1) is not a position, it is the name of a variable where the position is 
stored. Two of these variables, ME(1,1) and ME(1,2) are needed to plot one 
position. The variable ME(1,0) is not used until later in the program, where 
it is used to store the old position of ME while it is moving along. 

Arrays work like rows of pigeon holes and are very useful, because the values for 
the arrays can be manipulated with variables as they are in line I960. A loop 
if 1=1 to 3 steps through the 3 Mubble Eater (ME) arrays: 
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COLUMN 



COLUMN 1 



COLUMN 2 



ROW1 



ME(1,0]=3 



ME(1,1)=15 



ME(1,2]=3 



ROW 2 



ME(2,0]=3 



ME(2.1]=59 



ME(2,2]=3 



ROW 3 



ME[3,0]=3 



ME(3,1]=59 



ME(3,2]=43 



The rows are used for the three ME's and the columns store the grid positions. 
This array allows the loop to use I for the three ME's and read their grid 
positions as ME(I,1),ME(I,2). 

A similar array is used for the Mubble, but instead of plotting three different 
single dots the Mubble is a little creature three dots longs. By means of some 
clever statements the Mubble is able to turn corners and keep his three dots 
together as he goes. 

2080 to 2140 draws the Mubble's starting position in two different colors 
and two different sounds with brief pauses in between. The result is a square 
that flashes and beeps. 

2160-2200 is the main play loop. First, the Mubble is moved by a subroutine 
starting at 2210. When the program returns the next line checks to see if 
the Mubble has eaten all the food points. If it has, the program is sent to 
2830 which is the end routine. 2180 moves the Mubble Eater. If the ME has 
devoured the MU then the program will return from this subroutine with HI 
equal to 1. 2190 IF NOT HI THEN 2160 is a conditional test. As long as HI 
is 0, NOT HI will fullfill the IF condition and the part of the line after 
THEN will be executed. The play loop is a conditional loop with two tests; 
either the Mubble gets all the food points or the Mubble Eater gets him. 
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Line 2210 is a Boolian truth test to determine whether the Mubble is on an 
intersection of the grid and allowed to turn a corner or not. Before you put 
this line in your program put it on the "work bench," and make a loop and 
print statement to check it out. The workbench is a program area that can 
be used to test lines without interfering with the main program. The test 
program below will print all the combinations of values of the grid and show 
you which ones test out as valid intersections. 

100 FOR MX= 15 TO 61 

110 FOR MY = 3 TO 46 

1 20 FL = ((MX+1 ]/4] = INT ([(MX+1 )/4]] AND ([MY+1 ]/4) = INT (((MY+1 ]/4)] 

130 PRINT ((MX+1 )/4);"-"; 

140 PRINT INT (((MX+1/4));" "; 

150 PRINT ((MY+1 )/4);"-"; 

1 60 PRINT INT (((MY+1 ]/4]]; 

170 PRINT ""FI_=";FL; " MX=";MX;" MY="MY;", 

180 NEXT MY 

190 NEXT MX 

200 STOP ^^^^^O 





When you run this program you will see that the left hand side of the 
equality test will be a decimal number until MX+1 is evenly divisable by 4. 
The same value preceded by INT will be rounded off, and will only match 
the even divisions. The AND statement requires that both MX+1 and MY+1 
be evenly divisable by 4. FL will only equal 1 if MX+1 and MY+1 are the 
coordinates of the grid. When you are satisfied that line 120 is "doing its 
thing" then renumber it as 2210. Save the testing program and add a line 10 
GOTO 1000 to run the game. 
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22 30-2380 is a routine to read the joystick and assign a direction to the 
Mubble. If the joystick is not being moved a value of 15 is returned when 
the stick is "read." Line 2240 would send the flow to 2300 and move the 
Mubble in the same direction it was going before. 2260-2290. This section 
can easily be changed to read the arrow keys on the keyboard by using the 
OPEN command at the beginning of the program and the GET command to 
get a value for KEY. Look at Atari Artist to see how this is done. Line 2300 
stores the old Mubble coordinates so that X2 and Y2 can be used for new 
values. Lines 2310-2380 add or subtract from the horizontal or vertical 
coordinates according to the direction selected. 2 350-2380 check to see that 
the Mubble does not go off the edge of the grid. 

2 390 uses the LOCATE command to read the color of the new Mubble 
location. 2400 tests to see if the square is a food point (FD), and if it is food 
(color 2) a point is added to PT and a "zip" sound is generated. 2410 turns 
off the sound. We use a FOR-NEXT loop for the zip sound with the value of 
the sound and duration of the loop both using the variable (I). Since 250 is a 
low note we step by a minus number to get an ascending sound. The entire 
loop is in one line because it follows and IF statement and only sounds off in 
response to a food point. 

2420-2530 moves the Mubble by erasing the tail position MU(1,1),MU(1,2) 
and then going through a series of swaps, middle becomes tail, head becomes 
middle and head becomes newly plotted X2 and Y2. This process works the 
same whether the Mubble is going straight or around a corner. 2540 
RETURNS to the main play loop. 
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2550-2810 is a FOR-NEXT loop that moves the three Mubble Eaters in turn. 

2560-2570 is the grid crossing test expained in line 2210, except that MX 
has to be changed to ME(I,1). We can't use ME(I,1) directly because line 
2570 would be longer than Atari BASIC allows, so we define A as ME(I,1) 
and use A in the formula instead. 

2590 -2600 are ON-GOTO statements with random numbers sending the 
program to different lines. Notice that the line numbers are repeated in line 
2590, and there is a 50/50 chance of going to 2600 and only a 1 in 6 chance 
of going to line 2650. 

Lines 2670-2700 compares the ME position to the Mubbles X and Y coordinates 
so the MEs will advance toward the Mubble. 

2710-2740 checks to see that the Mubble Eaters stay within the grid. 

2750-2780 reads the color of the space the Mubble Eater moves to and 
stores it in SP(I). When the ME next gets plotted this color is placed in the 
space the ME vacated. This allows the ME to walk over a food point and put 
it back down where it belongs without eating it. 
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2790-2800 tests to see if the Mubble and Mubble Eater are colliding. The 
values have to be translated to single letters to get all the tests on one line 
within the allowable limit of line length. 

2820 RETURNS to the play loop where the game either continues or goes to 
the end routine. 

2830-3030 is the end routine. The perfect score results in a plain text screen 
which you are invited to improve upon. The destruction of the Mubble will 
result in a recap of the points devoured in large text using GRAPHICS 17, 
PRINT #6 and appropriate sounds. 






MUBBLE CHASE 

GAMES ATARIS PLAY 

COPYRIGHT 1983 
DATAMOST Inc. 



1000 REM 
1010 REM * 
1020 REM * 
1030 REM * 
1040 REM * 
1050 REM * 
1060 REM * 
1070 REM * 
10S0REM* 

*1 f^Q(/| DC |W| ************************************ 




,„„0 " mi 



■All I" 



148 



1100 REM 

11 10 REM DIMENSION STRINGS, VARIABLES 

1 1 20 DIM AN$(1 ),ME(3,3],SP(3),MU(3,3) 

1130GOSUB 1180:REM INSTRUCTIONS 1130 

1140GOSUB 1510:REM SETUP 

1150 GOSUB 1810:REM PLAY 

11B0GOSUB 2830:REM END 

1170 END 

1180 REM **** 

1 1 90 REM *** INSTRUCTIONS 

1200 REM **** 

1210GRAPHICS0 

1220 POSITION 10,0:PRINT"*** MUBBLE CHASE ***" 

1230 POSITION 2,5 

1 240 PRINT "IN THIS EXCITING GAME, YOU CONTROL" 

1250 PRINT "THE MOVEMENT OF THE HUNGRY LITTLE" 

1 260 PRINT "CREATURE WE CALL THE MUBBLE." 

1270 PRINT "THE MUBBLE SCURRIES THROUGH AMAZE," 

1 280 PRINT "TRYING TO EAT ALL OF THE FOOD POINTS." 

1290 PRINT 

1300 PRINT "UNFORTUNATELY, THERE ARE THREE MUBBLE-" 

1310 PRINT "EATERS IN THE SAME MAZE, WHO WANT TO" 

1320 PRINT "CATCH AND EAT THE POOR MUBBLE." 

1330 GOSUB 1490 

1340 PRINT "!escclear}":POSITION 10,0:PRINT 

"*** MUBBLE CHASE ***":POSITION 2,5 
1350 PRINT "YOU MUST MANEUVER THE MUBBLE TO THE" 
1360 PRINT "FOOD POINTS AND AWAY FROM THE MUBBLE" 
1 370 PRINT "EATERS. WHEN THESE NASTIES GET YOU," 
1380 PRINT "THE GAME IS OVER." 
1390 PRINT 

1400PRINT"MOVEMENTOFTHE MUBBLE IS CONTROLLED" 
1410PRINT"BY USING THE JOYSTICK" 
1420 POSITION 19,14:PRINT"UP" 
1430 POSITION 19,15:PRINT"{escescesc up arrow}" 
1440 POSITION 14,16:PRINT"LEFT{esc esc esc left arrow}+{esc esc 

esc right arrow}RIGHT" 
1450 POSITION 19,17:PRINT"{esc esc esc down arrow}" 
1460 POSITION 18,18:PRINT"DOWN" 
1470 GOSUB 1490 
1480 RETURN 

1490 POSITION 2,23:PRINT "PRESS RETURN TO CONTINUE ";:INPUT AN$ 
1500 RETURN 
1510REM *** 
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1520 REM ***SETUP 

1530 REM *** 

1540 GRAPHICS 5+1 6 

1 550 SETCOLOR 0,3,9 

1560 COLOR 1 

1570 PLOT 12,0 

1580 DRAWTO 12,46 

1590DRAWTO 62,46 

1600 DRAWTO 62,0 

1610 DRAWTO 12,0 

1620SP(1]=2 

1630SP(2)=2 

1640SP(3]=2 

1650 COLOR 3 

1 660 FOR 1=1 5 TO 61 STEP 4 

1670 PLOT l,3 

1680 DRAWTO 1,42 

1690 NEXT I 

1 700 FOR l=3 TO 46 STEP 4 

1710 PLOT 15,1 

1720 DRAWTO 59,1 

1730 NEXT I 

1740 COLOR 2 

1 750 FOR l=3 TO 46 STEP 4 

1 760 FOR J=1 5 TO 59 STEP 4 

1 770 PLOT J.I 

1780 NEXT J 

1790 NEXT I 

1800 RETURN 

1810 REM *** 

1820 REM ***PLAY 

1830 REM *** 

1840 MD=1 

1850ME[1,0)=3 

1860ME[1,1)=15 

1870ME(1,2)=3 

1880ME(2,0]=3 

1890 ME(2,1)=59 

1900 ME[2,2]=3 

1910 ME[3,0]=3 

1920ME(3,1]=59 

1930 ME(3,2)=43 

1940 COLOR 1 

1950 FOR 1=1 TO 3 
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1960 PLOT ME(I,1],ME(I,2] 

1970 NEXT I 

1980 Hl=0 

1990MU(1,1]=17 

2000MU(1,2]=43 

2010MU(2,1]=17 

2020MU[2,2)=43 

2030MU(3,1]=17 

2040MU[3,1)=17 

2050MU[3,2]=43 

2060MX=MU(1,1] 

2070MY=MU(1,2) 

2080 FOR 1=1 TO 10 

2090 SOUND 0,123, 10,10:COLOR0 

2100 PLOT MX, MY 

21 10 SOUND 0,21 1,1 0,1 0:COLOR 2 

2120PLOTMX.MY 

2130 FOR PAUSE=1 TO 30: NEXT PAUSE 

2140 NEXT I 

21 50 SOUND 0,0,0,0 

2160 GOSUB 2210:REM MOVE MUBBLE 

21 70 IF PT=1 32 THEN 2830 

2180 GOSUB 2550.REM MOVE MUBBLE EATER 

2190 IF NOT HI THEN 2160 

2200 GOTO 2830 

2210 FL=((MX+1)/4]=INT(((MX+1]/4)) AND [[MY+1]/4)=INT[{(MY+1J/4JJ 

2220 IF NOT FL THEN 2300 

2230 KEY=STICK[0] 

2240 IF KEY=15 THEN 2300 

2250 POKE 77,0:REM TURN OFF ATTRACT 

2260 IF KEY=7 THEN MD=1 

2270 IF KEY=14THEN MD=2 

2280 IF KEY=1 1 THEN MD=3 

2290 IF KEY=1 3 THEN MD=4 

2300X2=MX:Y2=MY 

2310 IF MD=1 THEN X2=X2+1 

2320 IF MD=2 THEN Y2=Y2-1 

2330 IF MD=3 THEN X2=X2-1 

2340 IF MD=4 THEN Y2=Y2+1 

2350 IF Y2>43 THEN Y2=43 

2360 IF X2<1 5 THEN X2=1 5 

2370 IF X2>59 THEN X2=59 

2380 IF Y2<3 THEN Y2=3 

2390 LOCATE X2.Y2.FD 
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2400 IF FD=2 THEN PT=PT+1:FORI=250TO 200 STEP -2:S0UND 0,1.1 0,1 0:NEXT I 
2410 SOUND 0,0,0,0 

2420 COLOR 3 

2430 PLOT MU(1,1),MU(1,2] 

2440 COLOR 1 

2450 PLOT X2.Y2 

2460MU(1,1]=MU(2,1] 

2470MU(2,1]=MU(3,1) 

2480MU(1,2)=MU(2,2] 

2490MU[2,2]=MU(3,2) 

2500MU(3,1)=X2 

2510MU(3,2)=Y2 

2520 MX=X2 

2530 MY=Y2 

2540 RETURN 

2550 FOR 1=1 TO 3 

2560A=ME(I,1]:B=ME(I,2] 

2570 FL=((A+1 ]/4)=INT[[(A+1 ]/4]) AND [(B+1 )/4)=INT(([B+1 ]/4]J 

2580 IF NOT FL THEN 2660 

2590 ON INT(RND(1)*6]+1 GOTO 2600,2600,2600,2650,2660,2660 

2600 ON INT(RND(1)*2]+1 GOTO 2610,2630 

2610 IF MX>A THEN ME[I.0)=3:GOTO 2660 

2620 IF MX>A THEN ME[I,0]=1 :GOTO 2660 

2630 IF MY<A THEN ME(I,0]=2:GOTO 2660 

2640 IF MY<A THEN ME(I,0)=4:GOTO 2660 

2650 ME[I,0]=INT[RND(1)*4)+1 

2660X2=A:Y2=B 

2670 IF ME(I,0)=1 THEN X2=X2+1 

2680 IF ME[I,0J=2 THEN Y2=Y2-1 

2690 IF ME(I,0)=3 THEN X2=X2-1 

2700 IF ME(I,0]=4 THEN Y2=Y2+1 

271 IF Y2>43 THEN Y2=43 

2720 IF X2<1 5 THEN X2=1 5 

2730 IF X2>59 THEN X2=59 

2740 IF Y2<3 THEN Y2=3 

2750 LOCATE A,B,KD:IF KD< >1 THEN SP[I]=KD 

2760 COLOR SP(l):PLOT A,B 

2770 LOCATE X2,Y2,Q:SP[I]=Q 

2780 COLOR 1:PLOTX2.Y2:ME[l,1)=X2:ME(l,2]=Y2 

2790A=X2:B=Y2:C=MU(1,1]:D=MU(1,2]:E=MU[2,1]:F=MU(2,2):G=MU(3,1] 

:H=MU(3,2) 
2800 IF [A=C AND B=D) OR [A=E AND B=F) OR [A=G AND B=H) THEN Hl=1 
2810 NEXT I 
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2820 RETURN 

2830 REM *** 

2840 REM *** END GAME 

2850 REM *** 

2860 GRAPHICS 

2870 POSITION 0,10 

2880 IF PT<1 32 THEN GOTO 2900 

2890 IF PT=1 32 THEN PRINT"CONGRATULATIONS PERFECT SCORE!!":RETURN 

2900 PRINT "{esc clear}" 

2910GRAPHICS 17 

2920 PRINT #6;"THOSE MUBBLE EATERS" 

2930 PRINT #6;"GOT YOU THIS TIME":REM THIS LINE INVERSE 

2940 PRINT #6;"BUT YOU DID EAT" 

2950 FOR 1=1 TO PT 

2960 SOUND 0,1,10,10 

2970 FOR PAUSE=1 TO 20:NEXT PAUSE 

2980 PRINT #6;l;""; 

2990 NEXT I 

3000 SOUND 0,0,0,0 

301 PRINT #6;"POINTS" 

3020 FOR PAUSE=1 TO 1000:NEXT PAUSE 

3030 END 
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The Atari Home Computer gives you the capability of using machine 
language graphics in your BASIC programs. Player-missile graphics utilize 
special routines in Atari memory that are not available on most other 
computers. Player-missile graphics are extremely fast in machine language 
and reflect the ancestry of the Atari as an arcade machine. The graphics are 
slower when called up from BASIC, but are still relatively faster than straight 
BASIC, especially in the higher resolutions. If you are a beginning programmer, 
the best use of this game would be to change the data statements a few at a 
time until you have created a different airplane or ship. The first data 
statement, 2810, is the bomb, the next two are the airplane and the following 
are the explosion and the ship. Line 1940-2010 set the size and color of the 
player objects. Try changing 1980 to POKE SO, 3 and 1990 to POKE 
S0+l,4 This will give you a very long airplane trying to hit a minuscule ship. 
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The terms player and missile refer to the size of the two kinds of objects that 
can be programmed in this mode, rather than any specific object. The missile 
can be only eight screen dots total, while the player can be 255 bytes of 
information arranged in a great variety of shapes. The sound routines are 
also interesting in this program because the screen position is used in the 
sound statement to make the boat and plane get louder when they are in the 
center of the screen. Change the value of DEMO to 1 in line 1140 and the 
airplane will never miss; kind of spooky when you think of the implications. 



Save the original version of Air Attack on tape or disk, and if you mess up 
the version in the computer's memory no harm is done, just re-load the 
correct version and modify some other lines to see what happens. Don't be 
surprised if boats and planes are flying around on top of your listings or 
introduction. Player-missile graphics can fly across the text screen or any 
graphics mode and do not erase what is underneath. If you press the break 
key and type LIST, the missiles might still be on the screen. 
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1 1/1(71(7] REM ************************************ 
1010REM* * 

1020 REM* AIR ATTACK * 

1030 REM* 

1(714(71 RFM ************************************ 

1050 REM 

1060 REM THIS PROGRAM USES PLAYER 

1070 REM MISSLE GRAPHICS 

1080 REM 

1090 REM 

1100 REM IT ALSO USES SOUND 

1110REM 

1120 REM DIMENSION VARIABLES 

1130 DIM BM(4),SH(31) 

1140DEMO=0 

1150BM[1]=0 

11 60 GOTO 1390 

1170 REM SKIP SUBROUTINES 

11 80 POSITION 2,23 

11 90 POKE 754,255 

1 200 PRINT "Press 'RETURN' when ready "; 

1210IFPEEK(754)O12THEN 1210 

1220 POKE 754,255 

1230 RETURN 

1240 PRINT"}"; 

1250 POSITION 11,3 

1 260 PRINT "*** AIR ATTACK ***" 

1270 POSITION 2,6 

1280 RETURN 

1290 FOR l=0TO3 

1300 POKE MY+384+YB+l,BM(l) 

1310NEXTI 

1320 RETURN 

1330B=0 

1340 FOR l=0TO20 

1350 POKE MY+384+80+1,0 

1360 NEXT I 

1370YB=0 

1380 RETURN 

1390 GRAPHICS 

1400SL=15 

1410GOSUB 1240 

1 420 PRINT "In this game you are a fighter pilot." 

1 430 PRINT "You score by hitting one of the enemy' 
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1440 PRINT "ships with one of your bombs and" 

1450 PRINT "sinking it." 

1460 PRINT 

1 470 PRINT "To drop a bomb simply press any key" 

1480 PRINT "on the keyboard. Your score for" 

1490 PRINT "hitting the ship will depend on which" 

1 500 PRINT "part of the ship you hit." 

1510PRINT 

1 520 PRINT "If you hit the lower deck you get 1 0" 

1 530 PRINT "points. If you hit the upper deck" 

1 540 PRINT "you get 20 points. If you hit the" 

1 550 PRINT "smokestack you have done very well," 

1 560 PRINT "and you are rewarded with 30 points.' 

1570GOSUB 1180 

1580GOSUB 1240 

1 590 PRINT "You have an arsenal of ";SL;" bombs." 

1 600 PRINT "The speed of each ship will vary so" 

1610 PRINT "make every shot count!" 

1620 PRINT 

1630 PRINT"GOOD LUCK !!!" 

1640GOSUB 1180 

1650 RESTORE 

1660 FOR l=0TO 3 

1670 READ A:BM(I]=A 

1680 NEXT I 

1690 GRAPHICS 5 

1700 COLOR 2 

1710SETCOLOR2,10,5 

1720 FOR Y=38TO 39 

1730 PLOT 0,Y 

1740 DRAWTO 79,Y 

1750 NEXT Y 

1760 PM=54279:REM P-M BASE POINTER 

1770 RA=106:REM OS TOP OF RAM 

1780SD=559:REM DMACTL SHADOW 

1790GR=53277:REM GTIA CONTROL 

1800 H0=53248:REM H POSITION OF P0 

1810C0=704:REM COLOR OF P0 

1820S0=53256:REM SIZE OF P0 

1830 A=PEEK(RA]-8:REM GET RAM 2K 

1840 REM BELOW TOP 

1850 POKE PM,A:REM TELL ANTIC WHERE 

1860 REM PM RAM IS 

1870 MY=256*A:REM PM RAM ADDRESS 
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1 880 POKE SD,4B:REM ENABLE DMA 2 LINE 

1890 POKE GR,3:REM ENABLE PM DISPLAY 

1 900 FOR l=MY+384 TO MY+7B8 

1910 POKE l,0 

1920 NEXT I 

1930 REM JUST CLEARED PLAYER RAM 

1940 POKE C0.1 40 

1950 POKE C0+1.104 

1960 POKE H0.0 

1970 POKE 1-11,0 

1980 POKE S0.1 

1990POKES0+1.3 

2000 POKE S0+4.1 

2010 FOR 1=1 TO 6 

2020 READ A:POKE MY+530+I.A 

2030 NEXT I 

2040 FOR 1=1 TO 6 

2050 READ A 

2060 POKE MY+725+LA 

2070SH(I)=A 

2080 NEXT I 

2090 FOR l=7 TO 31 

2100 READ A 

2110SH(I)=A 

21 20 NEXT I 

2130SC=0 

2140X1=0 

2150X2=0 

2160S2=3 

2170PRINT">SCORE ";SC 

21 80 PRINT "SHOTS LEFT ";SL 

2190IFSL=0THEN 2890 

2200 POKE H0.X1 

2210 POKE H0+1.X2 

2220X1=X1-1.5 

2230 IF XK40 THEN X1=190 

2240 X2=X2+S2 

2250 IF X2<1 91 THEN 2280 

2260 S2=INT[RND(1]*3)+1 

2270X2=40 

2280 SOUND 1,50-S2,4,3-ABS((X2-127)/128)*3 

2290 SOUND 0,20,8,3-ABS((X1 -1 27)/1 28)*3 

2300 IF B THEN 2560 

2310 IF S2>0 THEN 2450 

2320 CT=CT+1 
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2330 FOR 1=1 TO 6 

2340 POKE MY+725+l,SH(CT*B+l) 

2350 NEXT I 

23B0 SOUND 2,CT*1 5+RND[1 J*1 90,4,8 

2370 IF CT=4 THEN CT=-1 :GOTO 2420 

2380 IF CT>0 THEN 2450 

2390 S2=3 

2400 X2=255 

2410 SOUND 2,0,0,0 

2420 X2=1 

2430 POKE H0+1.0 

2440 REM 

2450 IF NOT DEMO THEN 2490 

2460 IF X1 -30<X2+S2*35 THEN 2490 

2470 IF X1 -30>X2+S2*35+4 THEN 2490 

2480 GOTO 2510 

2490 IF PEEK(754]=255 THEN 2200 

2500 POKE 754,255 

2510B=1:YB=20 

2520SL=SL-1 

2530 POKE 53278,0:REM CLEAR COLLISIONS 

2540X3=X1+3 

2550 POKE H0+4.X3 

25B0IF YB<91 AND S2 THEN 2B10 

2570GOSUB 1330 

2580 POKE 754,255 

2590 SOUND 2,0,0,0 

2600 GOTO 2170 

2610 POKE 540,2 

2B20 IF PEEK(540] THEN 2620 

2630 CL=PEEK(S0) 

2640 POKE 53278,0:REM CLEAR COLLISIONS 

2650 IF CL< >2 THEN 2740 

2660 IF YB=86 THEN P=30 

2670 IF YB=88 THEN P=20 

2680 IF YB=90 THEN P=1 

2690 S2=0 

2700SC=SC+P 

2710 CT=0 

2720GOSUB 1330 

2730 GOTO 2170 

2740 SOUND 2.20+YB.1 0,4 

2750GOSUB 1290 

2760 POKE H0+4.X3 
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2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 
2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 
3150 



X3=X3-0.75 

IFX3<40THEN X3=190 

YB=YB+2 

GOTO 2200 

DATA 0,0,1,1 

DATA 1,1,3,63,1 15,127 

DATA 4,4,1 4,1 4,63,63 

DATA 0,1 8,33,1 8,51, 12 

DATA 0,0,33,1 8,63,1 2 

DATA 0,0,1 2,1 2,30,1 2 

DATA 0,0,0,0,0,1 8 

DATA 0,0,0,0,0,0 

GRAPHICS 0:GOSUB 1 240 

PRINT "GAME OVER !!!" 

SOUND 0,0,0,0 

SOUND 1,0,0,0 

SOUND 2,0,0,0 

PRINT "YOUR SCORE OF ";SC;" IS "; 

POKE 559,34 

POKE 53277,0 

FOR 1=53261 TO 53265 

POKEI.0 

NEXT I 

ON SC/25 GOTO 3010,3040,3060,3080,3100,3120,3140 

IFSC/25>6THEN 3140 

PRINT "ROTTEN !!!" 

END 

PRINT "BAD !!!" 

END 

PRINT"POOR !!!" 

END 

PRINT "FAIR..." 

END 

PRINT "GOOD..." 

END 



PRINT 
END 
PRINT 
END 



GREAT!!!' 



FANTASTIC !!! 
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Here's a simple program that will allow you to rival Picasso without getting 
paint all over the house. The video monitor is your canvas, the keyboard 
your palette, and the joystick and/or keyboard your brush. The program can 
save your drawing on disk or tape and load it back in to work on some more 
or to use as a background for a game or a title screen. When the picture is 
loaded you can select a different background color. 

A single long play loop of IF-THEN statements looks for the input. The 
paddle is checked first. If it returns a value of 15 it is in the neutral position 
(not being moved) and the program jumps to 3095 to read the keyboard. If a 
paddle input is detected the program assigns the variable X to the equivalent 
arrow keys. Then the program jumps around the command to get keyboard 
input and carries out the command assigned to X. If the joystick isn't used, 
line 3095 GETs the keyboard input from #1 channel and assigns X to the 
ASCII value of the key. The keyboard arrows are actually on the keys that 
are assigned to "- " "= " "+ " and "* " and these are the characters that are 
looked for. 

In 3400-3450 a color is set, a point plotted and a note sounded. Line 3600 
empties out the X variable and 3650 sends the program back around the loop. 

Lines 4200 to 4270 are a routine to save the picture dot by dot onto disk or 
tape. You can use this routine in any situation where you want to save a 
screen image, even text and graphics mixtures. 

If you use an Atari Artist drawing in another program, be sure to use the 
GRAPHICS 7 mode or the drawing will come back as the most colorful 
garbage you have ever seen. In your own programs match the graphic modes 
of the saving and retrieving routines. 
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100 REM 

"1 1 (71 RFM ************************************** 



120 REM * 




* 


130 REM * 


ATARI ARTIST 


* 


140 REM * 




* 


150 REM* 




* 


160 REM * 


COPYRIGHT 1983 


* 


170 REM * 




* 


180 REM * 


DATAMOST INC. 


* 



190 REM* 

P(7I(7I RFM ************************************** 

210REM 

220 OPEN #1,4,0,"K:" 

230C=2:A=0:B=0 

240 DIM C$(3) 

250 DIM AN$(4],FI$(40) 

260 A=PEEK(88)+PEEK(89)*256 

270 TRAP 2100 

300 GOSUB 1000:REM INTRODUCTION 

310GOSUB2000:REM SETUP 

320 GOSUB 3000:REM PLAY 

330 GOSUB 4000:REM END ROUTINE 

340 END 

1000 REM *** 

1010 REM *** INSTRUCTIONS*** 

1020 REM *** 

1030 GRAPHICS 0:PRINT "}" 

1040 PRINT :PRINT 

1050 PRINT" *** ATARI ARTIST***" 

1060 PRINT :PRINT 

1 100 PRINT "THE COMMANDS ARE:" 

1110PRINT:PRINT 

1 1 30 PRINT "B=Select background" 

1 1 40 PRINT "S=Turn sound off/on" 

1150PRINT"F=Fill" 

1 1 60 PRINT "D=Done,save picture" 

1170PRINT:PRINT 

1 1 80 PRINT "Arrow keys move line" 

1 1 90 PRINT "0=Background color line" 

1200 PRINT "1=Orange line" 

1210 PRINT "2=Green line" 

1230 PRINT "3=Blue line" 

1240 PRINT :PRINT 

1 250 PRINT "Would you like to load a picture"; 
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1260 INPUT AN$ 

1 270 IF AN$(1 ,1 )="Y" THEN GOTO 1 300 

1280 RETURN 

1 300 PRINT "Enter C:OR D: plus the picture name." 

1310INPUTFIS 

1315 GRAPHICS 7 

1320 OPEN #2,4,0,FI$ 

1325 A=PEEK(88]+PEEK(89]*256 

1 330 FOR l=A TO A+4030 

1340 GET #2,X 

1350 POKE l,X 

1360 NEXT I 

1370 CLOSE #2 

1990 POP 

1995 GOTO 2100 

2000 REM *** 

2010 REM *** SETUP 

2020 REM *** 

2030 GRAPHICS 7 

2100 PRINT"ENTER BACKGROUND COLOR" 

2110 PRINT "0=BLK 1=GRN 2=BRN 3&4=RED 5=MAGENTA" 

2120 PRINT "6=PRPL 7,8&9=BLUE 10=GRAY 1 1=GRN" 

2140 INPUT CS 

2150C=VAL[C$] 

2160SETCOLOR4.C.0 

2990 RETURN 

3000 REM*** 

3020 REM *** PLAY 

3030 REM*** 

3050 X=STICK(0] 

3060 IF X=1 5 THEN 3090 

3061 IFX=11 THEN X=ASC("+"]:GOTO 3100 

3062 IF X=7 THEN X=ASC("*"]:GOTO 3100 

3063 IFX=14THEN X=ASC("-"]:GOTO 31 00 

3064 IFX=13THEN X=ASC["="): GOTO 3100 

3065 GOTO 3050 

3090 IF PEEK[764]=255 THEN 3050 
3095 GET#1,X 
3100IFX=49THEN C=1 
3110IFX=50THEN C=2 
3120IFX=51 THEN C=3 
3130IFX=48THEN C=4 
3200 IF X=45 THEN A=A-1 
3210 IF A<0 THEN A=0 
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3230 IF X=B1 THEN A=A+1 

3240 IF A>79 THEN A=79 

3300 IF X=43 THEN B=B-1 

3310 IF B<0 THEN B=0 

3320 IF X=42 THEN B=B+1 

3330 IF B>1 58 THEN B=1 58 

3340 IF X=BB THEN GOSUB 2100 

3350 IF X=83 THEN S= NOT S 

3360 IF X=70 THEN POKE 765,C:XIO 1 8,#6,0,0"S:" 

3370 IF X=68 THEN RETURN 

3400 COLOR C 

3410 PLOT B,A 

3430 IF S THEN SOUND 0,0,0,0:SOUND 1 ,0,0,0: GOTO 3600 

3440 SOUND 0.B.1 0,10 

3450 SOUND 1,A,10,10 

3600 X=0 

3650 GOTO 3020 

4000 REM *** 

401 REM *** END ROUTINE *** 

4020 REM *** 

4040 PRINT "Do you want to save this picture"; 

4050 INPUT AN$ 

4060 IF AN$(1,1]< >"Y" THEN RETURN 

41 00 PRINT "Put C: OR D: in front of the picture name" 

4120 INPUT Fl$ 

4200 OPEN #2,8,0,FI$ 

421 A=PEEK(88]+PEEK(89)*256 

4240 FOR l=A TO A+4030 

4250PUT#2,PEEK[I) 

4260 NEXT I 

4270 CLOSE #2 
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The earliest electronic computers were put to work plotting trajectories for 
cannons and anti-aircraft guns. Your ATARI is as powerful as a machine that 
once took up an entire building and used as much electricity as a small city. 
The ROCKET DUEL game plots trajectories with SINe and COSine functions 
that are built into the BASIC language. You could draw your own landscape 
using data statements, and the scale of the rockets would be appropriate. 
You can see the rapid calculations the computer is doing by printing out the 
value in the middle of the rocket loop at 2690. Add a position and print 
statement: 
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2692 POSITION 23,1 

This will keep the text from scolling up behind the graphics area. 

2694 PRINT "X=";X(I];" Y=";Y(I);" U=";U(I);" V=";V[I) 

The program draws the rocket in yellow, then 'undraws' the rocket in the 
same spot with black and plots a new location one space over to be redrawn 
in yellow. 

Line 2880 draws over the rocket in black to erase it. Change this line to: 

2880 COLOR 4:PL0T OX.OY 

After this change the rocket will leave a trail of blue dots behind that show 
the entire trajectory. The reason the path is bumpy is that plot locations 
must be whole numbers. Drawing a curve on the screen presents the same 
problem as drawing a curve on graph paper by blacking in squares. 



1000 REM 






1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
2010 
2050 
2060 



ROCKET DUEL 



******####*##*#*# + ***#**#***:(:#:(:#*:}:#:*: 



REM * 

REM * 

REM * 

REM 

REM DIMENSION VARIABLES 

DIM EL(1),0L(1),X(1],Y(1) 

DIM U(1],V(1],P(1),S(1] 

DIM A$(5) 

GRAPHICS 

POSITION 10,3 

PRINT"*** ROCKET DUEL***" 

PRINT :PRINT 

PRINT "THIS IS A TWO PLAYER GAME WHERE YOU" 

PRINT "USE YOUR JOYSTICKS TO AIM AND FIRE" 

PRINT "ROCKETS AT THE OTHER PLAYERS LAUNCHER 

PRINT "THE SCREEN DISPLAYS WIND VELOCITY AND" 

PRINT "LAUNCHER ANGLE." 

PRINT 

POSITION 2,23 

PRINT "PRESS 'RETURN' TO CONTINUE."; 

INPUT A$ 

REM 

REM 

REM ***** STARTING ANGLE 
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2070 REM 

2080 DEG 

2090EL[0]=20:EL(1)=20 

2100OL{0)=0:OL[1)=0 

2110REM 

21 20 REM ***** ROCKET START POSITION 

2130 REM 

2140X(0)=0:X[1]=0 

2150Y(0]=0:Y[1]=0 

2160 REM 

2170 REM ***** ROCKET SPEED 

2180 REM 

2190U[0)=0:U(1)=0 

2200V(0]=0:V(1)=0 

2210REM 

2220 REM ***** GUN X POSITIONS 

2230 REM 

2240P(0)=5:P[1]=154 

2250 REM 

2260 REM ***** SCORES 

2270S(0]=0:S(1)=0 

2280 REM 

2290 REM ***** SETUP THE SCREEN AND 

2300 REM ***** GET A RANDOM WIND SPEED 

2310 REM 

2320 GRAPHICS 7 

2330 FOR l=0TO 1 

2340J=I*2-1 

2350 GOSUB 3140 

2360 NEXT I 

2370 REM **** TURN OF CURSOR 

2380 POKE 752,255 

2390 WIND=INT(RND(0]*50]-25 

2400 IF S(0]+S(1)=0 THEN WIND=0 

2410 PRINT "}";:GOSUB 3400 

2420 REM 

2430 REM **** TOP OF MAIN LOOP 

2440 REM 

2450 K=0 

2460 FOR l=0TO 1 

2470 J=l*2-1 

2480 REM 

2490 REM READ STICK UP/DOWN 

2500 REM 
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2510JS=STICK(I) 

2520 IF JS=1 5 THEN 2600 

2530 IF JS=13 THEN EL(I)=EL[I]-1 

2540 IF JS=14 THEN EL[I)=EL(I]+1 

2550 IF JS=13 OR JS=14THEN GOSUB3140 

2560 POKE 77,0 

2570 REM 

2580 REM ***** READ FIRE BUTTON 

2590 REM 

2600 IF X(l)+STRIG(l]=0 THEN GOSUB 3270 

2610 REM 

2620 REM ***** MOVE ROCKET 

2630 REM 

2640 IF X(l]=0 THEN 2880 

2650 IF Y(l)>=0 THEN OX=X(l):OY=Y[l] 

2660X(I)=X(I]-U(I] 

2670 U(I)=U[I)-WIND/10000 

2680Y(I)=Y[I]-V(I] 

2690V(l]=V(l)-0.02 

2700 IF [X(I)<1)+(X(I]>159] THEN X[I)=0:GOTO 2880 

2710 IF Y(l)>=0 THEN COLOR 1 :PLOT X[I),Y(I] 

2720 IF Y(l]<79 THEN 2880 

2730 REM 

2740 REM ***** ROCKET HIT LAUNCHER ? 

2750 REM 

2760 FOR K=1 5 TO STEP -0.2 

2770 SOUND 0,20,8,K 

2780 SOUND 1,200,8,K 

2790 NEXT K 

2800 K=0 

2810 IF ABS(P(1 -l)-X(l))<3 THEN S[I]=S(I)+1 :K=1 

2820 IF ABS(P(I]-X[I]]<3 THEN S(I)=S(I]-1 :K=1 

2830X(I]=0 

2840 IF K=1 THEN 1=1 

2850 REM 

2860 REM ***** BOTTOM OF LOOP 

2870 REM 

2880 COLOR 0:PLOT OX.OY 

2890 IF X[l)>0THEN 2910 

2900 SOUND 2+1,0,0,0 

2910 NEXT I 

2920 IF K=1 THEN 2320 

2930 REM 

2940 REM ***** CHECK FOR ROCKETS HIT 
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2950 IF INT(Y(0)/4)< >INT[Y(1)/4) THEN 3090 

2960 IF INT(X[0]/4)< >INT[X(1]/4) THEN 3090 

2970IFX[0)=0OR X(1)=0THEN 3090 

2980 SOUND 1,90,8,10 

2990 SOUND 2,0,0,0 

3000 COLOR 

3010 PLOT X(0],Y(0) 

3020 PLOT X(1],Y[1] 

3030X(0)=0:X(1]=0 

3040Y(0)=0:Y(1]=0 

3050 FOR X=9 TO STEP -1 

3060 FOR Y=1 TO 10:NEXTY 

3070 SOUND 1,90,8.x 

3080 NEXT X 

3090 GOTO 2450 

3100 REM 

31 10 REM ***** CLEAR AND REDRAW 

3120 REM ***** ROCKET LAUNCHER 

3130 REM 

3140 GOSUB 3400 

3150 IF EL(I]>90THEN EL(I]=90 

31 60 IF EL(l]<0 THEN EL(l)=0 

31 70 COLOR 

3180 PLOT P(l),79 

3190 DRAWTO P[l]-J*5*COS(OL[l)),79-5*SIN[OL(l)) 

3200 COLOR 1 

3210 PLOT P(l),79 

3220 DRAWTO P(l)-J*5*COS[EL(l]],79-5*SIN(EL(l)) 

3230OL(I]=EL(I):RETURN 

3240 REM 

3250 REM ***** PLOT THE MISSLE 

3260 REM 

3270 POKE 77,0 

3280 X(l]=P(l)-J*5*COS(EL(l)) 

3290 Y(I)=79-5*SIN[EL(I)) 

3300 U(l]=J*2*COS(EL(l)) 

3310V(I)=2*SIN(EL(I)) 

3320 SOUND 0,45,8,7 

3330 SOUND 1,50,8,7 

3340 FOR K=7 TO STEP -1 

3350 FOR Y=1 TO 15:NEXT Y 

3360 SOUND 0,45,8,K 

3370 SOUND 1,50,8,K 

3380 NEXTK 
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3390 SOUND 2+1,1 0+30*RND(1),8,5 

3400 A=EL[0]:GOSUB 3530 

3410 PRINT""; 

3420 A=S(0):GOSUB 3530 

3430 PRINT" WIND"; 

3440 A=WIND:GOSUB 3530 

3450 IF WIND>0 THEN PRINT "-"; 

3460 IF WIND<=0 THEN PRINT " "; 

3470 PRINT" "; 

3480 A=EL(1 ):GOSUB 3530 

3490 PRINT""; 

3500 A=S(1 ]:GOSUB 3530 

3510 PRINT :PRINT""; 

3520 RETURN 

3530 A$=" " 

3540 A$(4-LEN[STR$(A)]]=STR$(A) 

3550 PRINT A$; 

3560 RETURN 
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This is a two player game, so get ready for some stiff competition! You will 
be surprised at how much strategy it takes to outwit a determined opponent. 
The computer will play against you, but the computer advisary lacks the 
killer instinct and is easy to beat. The main program loop starts at 1470. The 
delay variable [DL] is reduced by one at each pass so that play speeds up as 
the game progresses. There is a single routine that reads the joystick and 
tests the output to see if it is within bounds or not crashing into the opponent's 
line. The program demonstrates the use of conditional branching. You are 
asked to choose one or two players, and your response is stored as DEMO=l 
[true or yes] or DEMO=0 [false or no]. Later the program uses 1590 IF NOT 
DEMO THEN 1760 to branch around the computer play section of the 
program. The IF THEN statement can be very useful. Look at line 1260 IF 
LEN (A$) THEN A=VAL(A$). If you press RETURN without choosing 1 or 
2, A$ will be empty and LEN will be 0. The action that follows THEN 
[A=VAL(A$)] will not be carried out, and line 1280 will send the program 
around again until an acceptable answer is received. These are both instances of 
conditional branching. If you are getting into the spirit of programming, 
you could add a few lines to the computer play section to make the computer 
more competitive. 
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1000 REM ************************************ 
1010 REM*** *** 

1020 REM*** BLOCK'EM *** 

1030 REM*** *** 

1040 REM ************************************ 

1050 REM 

1060 REM 

1070 DIM A$[10] 

1080 GRAPHICS 

1090 POSITION 12,2 

1100 PRINT"*** BLOCK'EM ***" 

11 10 POSITION 2,5 

1 1 20 PRINT "IN THIS GAME, TWO PLAYERS CONTROL THE" 

1 1 30 PRINT "CREATION OF A LINE." 

1140 PRINT 

1 1 50 PRINT "THE FIRST PLAYER WHOSE LINE HITS A" 

1 1 60 PRINT "WALL, OR A LINE, LOSES THE GAME." 

1170 PRINT 

1 1 80 PRINT "USE THE JOYSTICKS TO CONTROL THE GAME" 

1190PRINT"FOR UP.DOWN.LEFTAND RIGHT." 

1200 PRINT 

1210 PRINT" GOOD LUCK I!" 

1220 PRINT 

1230DEMO=0 

1 240 PRINT "HOW MANY PLAYERS 1 ,2 "; 

1250 INPUT A$ 

1260 IF LEN[A$] THEN A=VAL(A$) 

1270 IF A=2 THEN 1300 

1280IFAO1 THEN 1220 

1290DEMO=1 

1300 POSITION 2,23 

131 PRINT "PRESS 'RETURN' WHEN READY. "; 

1320 INPUT A$ 

1330 GRAPHICS 5 

1340 COLOR 2 

1350 PLOT 2,0 

1360DRAWTO 79,0 

1370 DRAWTO 79,39 

1380DRAWTO 2,39 

1390 DRAWTO 2,0 

1400X1=20 

1410X2=60 

1420 A1 =7 

1430Y1=20 
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1440Y2=20 

1450A2=11 

1460DL=100 

1470 FOR TM=1 TO DL 

1480 NEXT TM 

1490DL=DL-1 

1500 IF DL<1 THEN DL=1 

1510COLOR 1 

1520 PLOT X1.Y1 

1530 COLOR 3 

1540 PLOT X2.Y2 

1550D1=STICK(0] 

1560CH=0 

1570 RN=0 

1580 D2=A2 

1590 IF NOT DEMO THEN 1760 

1600YC=Y2:IF A2=14THEN YC=Y2-1 

1610 IF A2=13THEN YC=Y2+1 

1 620 XC=X2:IF A2=1 1 THEN XC=X2-1 

1 630 IF A2=7 THEN XC=X2+1 

1640 LOCATE XC,YC,KD 

1650 IF KD=0 AND (DL=1 OR RN) THEN 1770 

1660 IF CH=2 THEN A2=D2:GOTO 1770 

1670 IF KDTHEN GOSUB 2140:GOTO 1600 

1680 D3=INT(RND(1)*15]+1 

1690 RN=1 

1700 IF D3>14THEN 1770 

1710 IF D3<7THEN 1770 

1720 IF D3>7 AND D3<1 1 THEN 1770 

1730 IF D3=12THEN 1770 

1740A2=D3 

1750 GOTO 1600 

1760D2=STICK(1] 

1770 SOUND 0,50,1 0,5 

1 780 IF DEMO THEN D2=1 5 

1790IF D1=15THEN 1840 

1800 IF DK7THEN 1840 

1810 IF D1=9THEN 1840 

1820IF D1 = 10THEN 1840 

1830A1 = D1 

1840 IF D2=15 THEN 1890 

1850 IF D2<7THEN 1890 

1860 IF D2=9THEN 1890 

1870IF D2=10THEN 1890 

1880 A2=D2 
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1890 IF A1 =14 THEN Y1=Y1-1 

1900 IF A2=14THEN Y2=Y2-1 

1910 IF A1 =13 THEN Y1=Y1+1 

1 920 IF A2=1 3 THEN Y2=Y2+1 

1930 IF A1 =11 THEN X1=X1-1 

1 940 IF A2=1 1 THEN X2=X2-1 

1950 IF A1=7 THEN X1=X1+1 

1 960 IF A2=7 THEN X2=X2+1 

1970 LOCATE X1.Y1.C1 

1980 LOCATE X2.Y2.C2 

1990 IF NOT C1 AND NOT C2 THEN 2090 

2000 SOUND 0,0,0,0 

201 IF C1 THEN PRINT "PLAYER ONE LOSES" 

2020 IF C2 THEN PRINT "PLAYER TWO LOSES" 

2030 IF NOT C1 OR NOT C2 THEN 2050 

2040 PRINT "YOU BOTH LOST" 

2050 PRINT "PLAY AGAIN Y/N "; 

2060 INPUT A$ 

2070 IF LEN(A$] THEN IF A$(1 ,1 ]="Y" THEN 1 330 

2080 END 

2090 COLOR 2 

2100PLOTX1.Y1 

2110PLOTX2.Y2 

21 20 SOUND 0,0,0,0 

21 30 GOTO 1470 

2140CH=CH+1 

2150RN=1 

21 60 ON CH GOTO 2200,2290 

2170D=INT(RND(1]*999] 

2180 D=D/2-INT[D/2] 

2190D=D*2 

2200 ON D GOTO 2210,2250 

2210 IF A2=14 THEN A2=11:RETURN 

2220 IF A2=7 THEN A2=14;RETURN 

2230 IF A2=1 3 THEN A2=7:RETURN 

2240 IF A2=1 1 THEN A2=13:RETURN 

2250 IF A2=14 THEN A2=13:RETURN 

2260 IF A2=7 THEN A2=1 1 :RETURN 

2270 IF A2=13THEN A2=14:RETURN 

2280 IF A2=1 1 THEN A2=7:RETURN 

2290 IF A2=14THEN A2=13:RETURN 

2300 IF A2=1 1 THEN A2=7:RETURN 

2310 IF A2=13 THEN A2=14:RETURN 

2320 IF A2=7 THEN A2=1 1 :RETURN 
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Dragon's Lair 



Maze games of all kinds have been a mainstay of microcomputers from the 
very beginning, with SNACK- ATTACK" and PAC-MAN™ as the descendants 
of a large family. Dragon's Lair is the grandfather, and our version of it is 
sort of a great-uncle. The special feature of our game is that after the maze is 
drawn the lights go out in the lair. You have to memorize the maze as it 
appears. When you bump into a wall that section of the wall becomes visible, 
but you won't have enough time to get through the maze by hit or miss. The 
dragon starts from the exit you are trying to reach and is drawn inexorably 
toward you with super radar. Eluding the dragon is more a matter of tactics 
than dexterity. If you backtrack around a corner and get a wall between you 
and the dragon you could end up with Mr. Dragon behind you and the exit 
will then be in the clear. Dragon's Lair has a two player option that allows 
the second player to become the dragon and attack player one and/or head 
for the opposite door. 

The maze is built with graphic characters in the text mode, and runs relatively 
fast for a BASIC program. The program POKEs in the characters for the 
maze. In line 1250, POKE X+Y,128 places Atari character 128 on the screen, 
which is a white square. Try changing 128 to 160 and the maze will be drawn 
with inverse colons. Change 120 to 84 to draw white circles. A grid is drawn 
first, then series of random ON GOTOs in line 1610 sends the program to 
lines that erase the walls in the grid to form a maze. Try changing the in 
line 1 660 to some other value and watch the screen draw in characters instead of 
erasing parts of the grid. The keyboard and joystick reading sections can be 
utilized in any of your own programs that need to move a figure on the 
screen. You can change or add to the sounds, change colors, and make a 
different dragon if you want a personal version of Dragon's Lair. 
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* * * * * * * * * * * * * * * * * ******** * * * * * * * ** * * 



DRAGON'S LAIR 



DRAGONS LAIR" 



1=1 
2=1 
3=2 
4=2 



PLAYER KB" 
PLAYER STICK- 
PLAYER KB" 
PLAYER STICK" 



1000 REM 

1010REM * 

1020 REM * 

1030 REM* * 

I 04 REM ************************************ 

1050 REM 

1060 DIM M(14,8],T(14,8) 

1070 GRAPHICS 2 

1080 PRINT #6 

1030 PRINT #6 

II 00 PRINT #6;' 
1110PRINT#6 
11 20 PRINT #6;' 
1130 PRINT #6;' 
1140 PRINT #6;' 
11 50 PRINT #6;' 
11 60 INPUT OPT 

11 70 POKE 40000,0 

1180SCREEN=40080 

1190 REM BUILD MAZE 

1200 POKE 82,0 

1210GRAPHICS0 

1220 POKE 752,1 

1 230 FOR X=SCREEN TO SCREEN+840 STEP 1 20 

1240 FOR Y=0TO39 

1250 POKE X+Y.1 28 

1260 NEXT Y 

1270 NEXT X 

1 280 FOR X=SCREEN TO SCREEN+39 STEP 3 

1 290 FOR Y=0 TO 840 STEP 40 

1300 POKE X+Y.1 28 

1310 NEXT Y 

1320 NEXT X 

1330S=150 

1340 FOR l=0TO 14 

1350 FOR J=0TO8 

1360T(I,J)=0 

1370 M(I,J)=11 

1380 NEXT J 

1390 NEXT I 

1400X=INT(RND(0]*13+1) 

1410Y=INT(RND(0]*7+1) 

1420 C=91 



J - 
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1430IFC=1 THEN 1980 

1 440 R=0 

1450D=0 

14B0L=0 

1470U=0 

1480 M(X,Y)=-ABS(M(X,Y)] 

1490C=C-1 

1500 IF X=1 3 THEN 1520 

1510 IF M(X+1,Y]>0THEN R=1 

1520 IF Y=7THEN 1540 

1 530 IF M(X,Y+1 ]>0 THEN D=1 

1540IFX=1 THEN 1560 

1550 IF M(X-1,Y)>0THEN L=1 

1560 IF Y=1 THEN 1580 

1570 IF M(X,Y-1)>0 THEN U=1 

1580Q=R+D+L+U 

1590IF(Q<3 AND INT(RND(0]*1 0)<2) OR 0=0 THEN 1930 

1600 DR=INT(RND(0]*4+1] 

1 61 ON DR GOTO 1 620,1 700,1 780,1 860 

1620 IF R=0THEN 1600 

1 630 M[X,Y)=M(X,Y]+1 :X=X+1 

1640I=3*(X-1) 

1 650 FOR J=3*Y-2 TO 3*Y-1 

1660 POKE SCREEN+40*J+I,0 

1 670 GOSUB 4200 

1680 NEXT J 

1690 GOTO 1430 

1700 IF D=0THEN 1600 

1710 M(X,Y]=M(X,Y]+1 0: Y=Y+1 

1720 J=3*(Y-1) 

1730 FOR l=(3*X-2] TO 3*X-1 

1740 POKE SCREEN+40*J+I,0 

1750 GOSUB 4200 

1760 NEXT I 

1770 GOTO 1430 

1780 IF L=0 THEN 1600 

1790 M(X-1,Y)=M(X-1,Y]-1:X=X-1 

1800I=3*X 

1810 FOR J=3*Y-2 TO 3*Y-1 

1820 POKE SCREEN+40*J+I,0 

1830 GOSUB 4200 

1840 NEXT J 

1850 GOTO 1430 

1860 IF U=0THEN 1600 
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1870 M[X,Y-1)=M[X,Y-1]-10:Y=Y-1 

1880J=3*Y 

1890 FOR l=3*X-2 TO 3*X-1 

1900 POKE SCREEN+40*J+I,0 

1 910 GOSUB 4200:NEXT I 

1920 GOTO 1430 

1 930 X=INT(RND(1 ]*1 3+1 ] 

1 940 Y=INT(RND(1 ]*7+1 ) 

1 950 IF M(X,Y)>0 THEN 1 930 

19B0C=C+1 

1970 GOTO 1430 

1980 POSITION 10,0 

1990 PRINT "THE MAZE IS BUILT"; 

2000 FOR X=1 TO 20 

2010S1=80 

2020S2=12 

2030 SOUND 0,S1,S2,10 

2040 FOR Y=1 TO 25 

2050 NEXT Y 

2060 SOUND 0,0,0,0 

2070 FOR Y=1 TO 5 

2080 NEXT Y 

2090 NEXT X 

21 00 GRAPHICS 

2110FORX=1 TO 100 

21 20 NEXT X 

21 30 FOR X=SCREEN TO SCREEN+840 STEP 840 

2140 FOR Y=0 TO 39 

2150POKEX+Y.128 

2160 NEXT Y 

2170 NEXT X 

21 80 FOR X=SCREEN TO SCREEN+39 STEP 39 

21 90 FOR Y=0 TO 840 STEP 40 

2200 POKE X+Y.1 28 

2210 NEXT Y 

2220 NEXT X 

2230 X=1 

2240 Y=INT(RND[0]*7+1 ) 

2250 SCR=SCREEN+40*(3*Y-2]+1 

2260 POKE SCR.62 

2270 POKE SCR+1 ,62 

2280 POKE SCR+40,90 

2290 POKESCR+41,67 
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2300 HX=3*X-2:HY=3*Y-2 

2310WY=INT(RND(0)*7+1) 

2320 POKE SCREEN+40*(3*WY-2)+39,0 

2330 REM START DRAGON 

2340 SX=1 3 

2350 SY=WY 

2360 QY=3*SY-2 

2370 RD=1 

2380 REM KEYBOARD INPUT 

2390 GOSUB 3310 

2400 IF SX=X AND SY=Y THEN 3870 

2410 IF (OPT=2) OR (0PT=4) THEN 3980 

2420 POKE 764,255 

2430 K=PEEK(764) 

2440 IF K=255 THEN 2430 

2450 REM QQ=K GOSUB 2500 K=QQ 

2460 REM IF SX=X AND SY=Y THEN 2940 

2470 IF K=7 THEN 2530:REM RIGHT 

2480 IF K=6 THEN 2840:REM LEFT 

2490 IF K=14 THEN 2880:REM UP 

2500 IF K=15 THEN 2940:REM DOWN 

2510 GOTO 2380 

2520 REM YOU MOVE RIGHT 

2530 DX=1 

2540 DY=0 

2550 IF M(X,Y)-10*INT(M(X,Y)/10] THEN 2990 

2560 FX=3*X-2 

2570 FY=3*Y-2 

2580 FOR 1=1 TO 3 

2590 FX=FX+DX 

2600 FY=FY+DY 

2610 FOR K=0TO 1-.FOR L=0 TO 1 

2620 POKE SCREEN+40*(HY+L]+(HX+K],0 

2630 NEXT L 

2640 NEXT K 

2650 SCR=SCREEN+40*FY+FX 

2660S=S-1 

2670 POKE SCR.62 

2680 POKE SCR+1 ,62 

2690 POKE SCR+40,90 

2700 POKE SCR+41. 67 

2710HX=FX 

2720 HY=FY 

2730S1=INT(RND(0]*40]+15 
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2740 SOUND 0.S1 .10,10 

2750 FOR Z=1 TO 6 

2760 NEXT Z 

2770 SOUND 0,0,0,0 

2780 NEXT I 

2790 X=X+DX 

2800 Y=Y+DY 

2810IFX=13 AND Y=WY THEN 31 90 

2820 GOTO 2380 

2830 REM YOU MOVE LEFT 

2840DX=-1 

2850 DY=0 

2860 IF M(X-1,Y)-10*INT(M(X-1,Y)/10]< >0THEN 2990 

2870 GOTO 2560 

2880 REM UP 

2890 IF Y=1 THEN 2990 

2900 IF M(X,Y-1]<-9 THEN 2990 

2910DX=0 

2920 DY=-1 

2930 GOTO 2560 

2940 REM DOWN 

2950 DX=0 

2960 DY=1 

2970 IF M(X,Y)<-9 THEN 2990 

2980 GOTO 2560 

2990 REM BLOCKAGE 

3000 OG=(SCREEN-1 23)+3*X+1 20*Y 

3010 IF K=15THEN GOSUB3140 

3020 IF K=6 THEN GOSUB 3120 

3030 IF K=7 THEN GOSUB 3100 

3040 IF K=14THEN GOSUB 3160 

3050 FOR l=0TO3 

3060 POKE OG+l*DEL,96 

3070 NEXT I 

3080 GOSUB 4280 

3090 GOTO 2380 

3100 REM RIGHT 

3110OG=OG+3 

3120DEL=40 

3130 RETURN 

3140 REM DOWN 

3150OG=OG+120 

3160 REM UP 
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3170DEL=1 

3180 RETURN 

3190 REM YOU WIN 

3200 S=S+20 

3210 GRAPHICS 18 

3220 PRINT #6 

3230 PRINT #6 

3240 PRINT #6;" YOU WIN" 

3250 PRINT #6 

3260 PRINT #6;" SCORE = ";S 

3270 POKE 764,255 

3280 IF PEEK(764]< >255 THEN 1 190 

3290 IF STRIG[0]=0 THEN 1 1 90 

3300 GOTO 3280 

3310 REM DRAGON MOVES 

3320 IF (OPT=3) OR [0PT=4] THEN 4050 

3330 IF X>SX THEN 3370 

3340 IF Y>SY THEN 3690 

3350 IF X<SX THEN 3750 

3360 IF Y<SY THEN 3810 

3370 IF SX=13 THEN 3690 

3380 IF T(SY,SY)>9 THEN 3400 

3390 IF M(SX,SY)-10*INT(M(SX,SY]/10] THEN 3690 

3400 DX=1 

3410DY=0 

3420 RX=3*SX-2 

3430 RY=3*SY-2 

3440 FOR 1=1 TO 3 

3450 RX=RX+DX 

3460 RY=RY+DY 

3470 FOR K=0TO 1 

3480 FOR L=0TO 1 

3490 POKE SCREEN+40*(QY+L)+(QX+K),0 

3500 NEXT L 

3510 NEXT K 

3520 SCR=SCREEN+40*RY+RX 

3530 POKE SCR.1 90 

3540 POKE SCR+1 ,190 

3550 POKE SCR+40,209 

3560 POKE SCR+41, 197 

3570 QX=RX 

3580 QY=RY 

3590S1=INT(RND(0)*20)+20 

3600 SOUND 0,S1, 12,10 
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3610 FOR Z=1 TO B 

3620 NEXT Z 

3630 SOUND 0,0,0,0 

3640 NEXT I 

3650 SX=SX+DX 

3660SY=SY+DY 

3670 T(SX,SY]=T(SX,SY)+1 

3680 RETURN 

3690 IF SY=7 THEN 3750 

3700 IF T[SX,SY)>9 THEN 3720 

3710 IF M[SX,SY)<-9 THEN 3750 

3720 DX=0 

3730 DY=1 

3740 GOTO 3420 

3750IFSX=1 THEN 3810 

3760 IF T(SX,SY)>9 THEN 3780 

3770 IF M(SX-1,SY)-10*INT(M(SX-1,SY)/10) THEN 3810 

3780DX=-1 

3790 DY=0 

3800 GOTO 3420 

3810IFSY=1 THEN 3370 

3820 IF T[SX,SY]>9 THEN 3840 

3830 IF M(SX,SY-1]<-9 THEN 3370 

3840 DX=0 

3850 DY=-1 

3860 GOTO 3420 

3870 REM DONT KNOW THIS STMT 

3880 GRAPHICS 18 

3890 PRINT #6 

3900 PRINT #6 

3910 PRINT #6;" THE DRAGON GOT YOU!" 

3920 GOSUB 4330 

3930 S=S-20 

3940 PRINT #6 

3950 PRINT #6 

3960 PRINT #6;" SCORE = ";S 

3970 GOTO 3270 

3980 REM PLAYER JOYSTICK 

3990 IF STICK(0]=1 5 THEN 3990 

4000 IF STICK(0)=14 THEN K=14:G0T0 2450 

4010 IF STICK(0]=7 THEN K=7:GOTO 2450 

4020IFSTICK(0)=13THEN K=15:GOTO 2450 

4030 IF STICK[0)=1 1 THEN K=6:GOTO 2450 

4040 GOTO 3980 
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4050 
4060 
4070 
4080 
4090 
4100 
4110 
4120 
4130 
4140 
4150 
4160 
4170 
4180 
4190 
4200 
4210 
4220 
4230 
4240 
4250 
4260 
4270 
4280 
4290 
4300 
4310 
4320 
4330 
4340 
4350 
4360 
4370 
4380 
4390 
4400 



REM 2 PLAYER 

IF OPT=3 THEN 4130 

IFSTICK(1)=15THEN 4070 

IFSTICK(1)=14THEN KK=14:G0T0 381 

IF STICK[1 ]=1 1 THEN KK=6:GOTO 3750 

IFSTICK[1)=13THEN KK=1 5:GOTO 3690 

IF STICK(1]=7 THEN KK=7:GOTO 3370 

GOTO 4070 

POKE 764,255 

KK=PEEK[764]:IF KK=255 THEN 4140 

IFKK=7THEN 3370 

IF KK=15THEN 3690 

IF KK=6 THEN 3750 

IF KK=14THEN 3810 

GOTO 4060 

S1 = INT(RND(0)*200+10] 

S2=10 

IF RND(0)>0.5 THEN S2=1 2 

SOUND 0,S1,S2,10 

FOR Z=1 TO 25 

NEXTZ 

SOUND 0,0,0,0 

RETURN 

SOUND 0,70,1 2,10 

F0RS1=1 TO 25 

NEXTS1 

SOUND 0,0,0,0 

RETURN 

SOUND 0,65,12,10 

FOR Z=1 TO 60 

NEXTZ 

SOUND0,126,12,10 

F0RZ=1 TO 100 

NEXTZ 

SOUND 0,0.0,0 

RETURN 
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This version of Brick Wall has a fiendish capability that allows you to move 
up on the ball and bat it back at short range. You give up some maneuverability, 
but you can rack up a humongous score when you have mastered the 
technique. Once you have penetrated the wall a domino effect will increase 
the number of bricks that are knocked out at each stroke. When there are 
only a few bricks left the skill level required goes up dramatically. The 
paddle routine in 1700 to 1760 is very forgiving. It reads upper left, center 
left, and lower left and includes them all as an instruction to move left. The 
same pattern holds for all four directions, yielding smooth diagonal movements 
if desired. The program has a demo mode that is invoked by changing line 
1070 to DEMO=l. It is a bit discouraging watching the computer, because it 
never misses. Line 1810 introduces a random factor in the direction the ball 
bounces, and the demo mode skips this line, so you can say the demo mode 
cheats a little bit. If the game is getting the best of you, give yourself a few 
more balls in line 1430. The last few bricks are hard to hit unless you put 
some "English" on the ball. Hitting the ball with the left corner of the paddle 
sends the ball to the left and the right corner sends the ball to the right. You 
might arbitrarily declare a score of 5000 as a win and build in some bells and 
whistles when this score is reached. 
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1000 REM ************************************ 

1010REM* 

1020 REM* BRICK WALL * 

1030 REM* 

1040 REM ************************************ 

1050 REM 

1060 DIM A$[20) 

1070DEMO=0 

1080 GOTO 1200:REM SKIP SUBROUTINES 

1090 REM 

1100 GRAPHICS 

1110 PRINT "}":REM CLEAR SCREEN 

11 20 POSITION 10,6 

1 1 30 PRINT "**** BRICK WALL ****" 

1140 POSITION 2,8 

1150 RETURN 

11 60 POSITION 2,23 

1 1 70 PRINT "PRESS 'RETURN' TO CONTINUE"; 

11 80 INPUT A$ 

1190 RETURN 

1200GOSUB 1100 

1 210 PRINT "IN THIS GAME YOU WILL SEE A SIDE VIEW" 

1220 PRINT "OF A BRICK WALL, AND A PADDLE" 

1 230 PRINT "THE BRICK WALL WILL BE AT THE BOTTOM" 

1240 PRINT "OF THE SCREEN AND THE PADDLE AT THE" 

1250 PRINT "TOP." 

1260 PRINT 

1 270 PRINT " YOU START WITH THREE BALLS AND" 

1 280 PRINT "MUST BREAK UP THE WHOLE WALL TO WIN." 

1 290 PRINT "MOVE THE PADDLE LEFT AND RIGHT WITH" 

1300 PRINT "THE JOYSTICK. START THE NEXT BALL" 

1310 PRINT "WITH THE FIRE BUTTON" 

1320GOSUB 1160 

1330 HS=0:REM HIGH SCORE 

1340 GRAPHICS 5 

1350SC=0 

1360 FOR Y=0 TO 3 

1370FORX=0TO79 

1 380 COLOR (X+Y-2*INT((X+Y)/2)+1 ] 

1390 PLOT X,2*Y+20 

1 400 PLOT 79-X,2*(7-Y]+20 

1410NEXTX 

1420 NEXT Y 

1430 BL=3 




'*■ 
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1440 POKE 752,1 27 

1450 PRINT "}HIGH SCORE ";HS 

1460 PRINT "YOUR SCORE ";SC 

1470 PRINT 

1480 PRINT "BALLS LEFT";BL; 

1490 REM 

1 500 PY=3:REM PADDLE Y 

1510PX=39 

1 520 BLX=PX:REM BALL X SARTS CENTER 

1530 BLY=PY+1: REM BALL Y STARTS LINE 2 

1540 BRK=8*80:REM NUMBER OF BRICKS LEFT 

1550SC=0:REM SCORE OF CURRENT GAME 

1560 COLOR 2 

1570 PLOT PX-3,PY:DRAWTO PX+3,PY:REM THE PADDLE FIRST TIM 

1580 COLOR 5 

1590DX=1:REM X START DIRECTION 

1600DY=1:REM Y START DIRECTION 

1610REM 

1 620 REM TOP OF PLAY LOOP 

1630 REM 

1640IFSTRIG(0)=1 AND DEMO=0THEN 1640 

1650OX=BLX 

1660OY=BLY 

1670BLX=BLX+DX 

1680BLY=BLY+DY 

1 690 OPX=PX-3:OPY=PY 

1700K=STICK(0) 

1710 U=0 

1720IFK=14 OR K=10OR K=6THEN U=-1 

1730 IF K=13 OR K=9 OR K=5 THEN U=1 

1 740 W=0 

1750 IF K=7 OR K=6 OR K=5 THEN W=1 

1760 IF K=11 OR K=10OR K=9THEN W=-1 

1770 IF DEMO=0THEN 1820 

1 780 IF PX>BLX THEN W=-1 

1790 IF PX<BLXTHEN W=1 

1800 U=1 

1810 IF INT(RND(0]+0.5]=1 THEN U=-1 

1820PX=PX+2*W 

1830 PY=PY+U 

1840 IF PY<3 THEN PY=3 

1 850 IF PY>1 8 THEN PY=1 8 

1860 IF PXOTHEN PX=3 

1 870 IF PX>76 THEN PX=76 
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1880X=0:Y=0 

1890IFBLX=-1 THEN BLX=0:DX=1 :Y=1 

1900 IF BLX=80THEN BLX=79:DX=-1 :Y=1 

1910IFBLY=1 THEN BLY=2:DY=1 :X=1 

1 920 IF BLY=40 THEN BLY=39:DY=-1 :X=1 

1930 IF Y=1 0RX=1 THEN SOUND 1,150,10,10 

1940IFOPX+3=PX AND OPY=PYTHEN 1970 

1950 COLOR 

1 960 PLOT OPX,OPY:DRAWTO 0PX+6.0PY 

1970 COLOR 2 

1980 PLOT PX-3,PY:DRAWTO PX+3.PY 

1 990 IF BLY=PY THEN 2020 

2000 IF OY=PY THEN 2020 

2010 GOTO 21 20 

2020 IF BLX<PX-3 THEN 2120 

2030 IF BLX>PX+3 THEN 21 20 

2040 SOUND 1,20,10,10 

2050 BLX=OX 

20B0 BLY=PY+1 

2070 DY=1 

2080 DX=0 

2090 IF BLX<PX-1 THEN DX=-1 

21 00 IF BLX>PX+1 THEN DX=1 

21 10 GOTO 2280 

21 20 LOCATE BLX.BLY.K 

2130 IF K=0 OR K=3 THEN 2280 

2140 SOUND 1,10,10,10 

2150Y=INT((BLY-20)/4) 

21 B0 SC=SC+1 *[Y=0)+Y*1 0*[Y>0] 

2170BRK=BRK-1 

21 80 IF BRK=0 THEN 2500 

21 90 IF SOHS THEN HS=SC 

2200 POKE B56,0:POKE 657,1 3 

2210 POKE 752,127 

2220 PRINT HS; 

2230 POKE 656,1 :POKE 657,1 3 

2240 PRINT SC; 

2250 DY=DY-DY*2 

2260 DX=INT(3*RND(0))-1 

2270 X=0 

2280IFX=1 THEN 2260 

2290 COLOR 3 

2300 IF BLY=2 THEN 2360 

2310 PLOT BLX.BLY 
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2320 COLOR 

2330 PLOT OX.OY 

2340 SOUND 1,0,0,0 

2350 GOTO 1650 

2360 SOUND 1,100,12,10 

2370 FOR X=1 TO 100:NEXT X 

2380 BL=BL-1 

2390 IF BL=0 THEN 2470 

2400 COLOR 

2410 PLOT OX.OY 

2420 BLX=PX 

2430 BLY=PY+1 

2440DY=1:DX=0 

2450 SOUND 1,0,0,0 

2460 GOTO 1640 

2470 PRINT "} YOU LOST YOUR LAST BALL" 

2480 PRINT "BUT YOUR SCORE IS ";SC 

2490 GOTO 2520 

2500 PRINT "}YOU GOT ALL OF THE BRICKS" 

2510 PRINT "CONGRATULATIONS A GREAT GAME" 

2520 IF SC<HS THEN 2540 

2530 PRINT"A NEW HIGH SCORE !!!!" 

2540 PRINT "YOUR SCORE WAS ";SC;". AGAIN Y/N" 

2550 SOUND 1,0,0,0 

2560 IF DEMO=1 THEN A$="Y":GOTO 2580 

2570 INPUT A$ 

2580 IF A$="Y" THEN 1 340 
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Lapd Barop 




This is a version of a popular board game that allows you to become the real 
estate czar of Atlantic City. Two to four players can participate. There are 
lots of DATA and PRINT statements, but the program is relatively simple. 
The program looks for 1-4 different joysticks in 1570 and 1580. If you only 
have one stick you can change the variable to 1 and pass the joystick around. 
The Atari graphic characters do not print out on most printers, and the 
screen display does not indicate which keys must be pressed to generate the 
desired graphic. We have substituted a modified listing that shows all the 
control characters as bracketed letters. [H] indicates that you are to hold 
down the control key while you press H. A white triangle should appear 
when you do this. Not only will these characters not appear on the printed 
page, but some printers will interpret the contol charcters as orders to print 
special sizes of type or even form feed the paper. You can check your 
programming, a replica of the game board will be displayed in the listings on 
the TV screen, just as it appears when the game plays. 
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1000 OPEN #1,6,0,"K:":OPEN #2,4,0,"S:" 1010 REM APR 24 18:00 1020 

PRINT "}":REM CLEAR SCREEN 
1 030 DIM X$(85],M(4),P[4),N1 $[6],N2$(6],N3$(B],N4$(B),Y$(1 1 ],Q$(7), 

T$(1 ],TK$(4),TL$(7),P$[40),OL$(1 ),N$(6) 
1040SETCOLOR 2,34,1 :SETCOLOR 4,34,1 :SETCOLOR 1,1 ,8: POKE 752,3: POKE 

82,1 :POKE 83,39:POKE 77,0 
1 050 TL$="[,][.][;][P]":REM INVERSE CONTROL CHARACTERS 

These characters are an inverse club, spade, diamond and heart 
1060 

P$="00000000000000000000000000000000000000 09 " 
1070 FOR l=0TO 23:READ X$:POSITION 1,I:PRINT X$;:NEXT I 

Write all the line numbers and DATA statements first in normal characters. 
Press the ATARI key for the inverse characters. 

> are normal spaces. 

{ } empty braces are inverse spaces. 

{R} braces are inverse letters. 

[U] brackets are control characters. 

[:] parentheses are normal characters. 

!Q! exclamations are inverse control characters. 

The game board will appear in the listing as it will appear on the screen. 

1080 DATA 
[U][U][U][l][U][l][U][l][U][l][U][l][U][l][U][l][U][l][U][l][U][l][U][U][0] 

I 090 DATA 

{ ){ ){ >!Y!{ }!Y!{ }!Y!{ }!Y!{ >!Y!{ }!Y!{ >!Y!{ >!Y!{ }!Y!{ >!Y!{ }!Z![Y] 

Copy line 1090 here and edit for changes. 
1 1 00 DATA 

{ >{ }{ }!Y!{ }!Y!{ }!Y!{?}!Y!{ }!Y!{ }!Y!<R}!Y!{ }!Y!{ }!Y!< }!Y![Z]{ }[Y] 
1110 DATA 
[U][U][U][Q][R][R][R][R][R][R][R][R][R][R][R][E] > > > > > [l][U][U][0] 

I I 20 DATA 

{ K }{ }(:) >>>>>>>>>>>(:)> [H][J] > > !Y!{ }{ >[Y] 

1 1 30 DATA 

[U][U][U](:] >LANDLORD>> (:)[H]{ }{ }[J] > [l][U][U][0] 

Copy line 1110 here and edit for changes. 
1 1 40 DATA 

[U][U][U][:J >>>>>>>>>>> (:)!J!{ }{?>{ }[J][l][U][U][0] 
1 1 50 DATA 

[U][U][U][A][R][R][R][R][R][R][R][R][R][R][R][D] > !J!{ }{ }!H![l][U][U][0] 
1 1 60 DATA 

{ >{C}{ }{:) >>>>>>>>>>>(:)>> !J!!H! > !Y!< >{C}[Y] 1 170 DATA 
[U][U][U](:] >>>>>>>>>>>[:)>>>>> [l][U][U][0] 
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Copy this line as needed below. 
1 1 80 DATA 
{ }{ }{ }(:] >>>>>>>>>>>(:]>>>>> !Y!{ }{ }[Y] 

Copy this for every other line. 
1 1 90 DATA 

[U][U][U](:] >>>>>>>>>>>(:]>>>>> [l][U][U][0] 
1 200 DATA 

{ }{R}< }(:] >>>>>>>>>>>[:)>>>>> !Y!<R}{ }[Y] 
1210 DATA 

[U][U][U][:] >>>>>>>>>>>(:]>>>>> [l][U][U][0] 
1220 DATA 

{ }{ }{ >(:] >>>>>>>>>>>(:]>>>>> !Y!{?}{ }[Y] 
1230 DATA 

[U][U][U][Z][R][R][R][R][R][R][R][R][R][R][R][C] > > > > > [l][U][U][0] 

1 240 DATA 

{}{}{}>> [H][J] >>>>>>>>>>>>>> !Y!{ }{ }[Y] 

1250 DATA 

[U][U][U] > [H]{ }{ }[J] >>>>>>>>>>>>> [|][U][U][0] 

1 260 DATA 

{}{}{}> !J!{ }{C>{ }[J] >>>>>>>>>>>> !Y!{ }{C}[Y] 

1 270 DATA 

[U][U][U] > > !J!{ }{ }!H! >>>>>>>>>>>> [l][U][U][0] 

1280 DATA 

{>!}{}>>> !J!!H! >>>>>>>>>>>>> !Y!{ >{ >[Y] 

1290 DATA 

[U][U][U][l][U][l][U][l][U][l][U][l][U][l][U][l][U][l][U][l][U][l][U][U][0] 

1 300 DATA 

(:](:](:]!Y!{ }!Y!< }!Y!{?}!Y!{ }!Y!{R}!Y!{ }!Y!{ }!Y!{C)!Y!{ }!Y!{G}{0}[Y] 
1310 DATA 
M >{ }!Y!{ }!Y!{ }!Y!{ }!Y!< }!Y!{ }!Y!{ }!Y!{ }!Y!{ )!Y!{ }!Y!{ }{<}[Y] 
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t "\ - 

1320TK$="[P][;][.][,]":REM INVERSE CONTROL CHARACTERS 

1 330 FOR T=1 TO 4:P0SITI0N 30,1 0:? "WHO ISPLAYER #";T;:S=1 2:GOSUB 

17B0:IFX=5THEN 1410 
1340 M(T]=1 500: P(T)=0 
1 350 ON T GOTO 1 360,1 370,1 380,1 390 
1360 N1$=Q$:GOTO 1400 
1370 N2$=Q$:GOTO 1400 
1380 N3$=Q$:GOTO 1400 
1390N4$=Q$ 
1400 POSITION 10,16+T:? Q$:POSITION 15,16+T:? CHR$[ASC(TK$(T,T]]-128) 

:PLY=T: NEXTT 
1410 IF T<3 THEN T-T-1 :X=0:NEXT T 

1420 FORT=1 TO PLY:GOSUB 1720:F=0:ON T GOTO 1430,1440,1450,1460 
1430 N$=N1$:GOTO 1470 
1440 N$=N2$:GOTO 1470 
1450 N$=N3$:GOTO 1470 
1460N$=N4$ 

1470 POSITION 28,10:? N$;" 'S";:POSITION 23,1 1 :? "TURN"; 
1480GOSUB 1530:TR0:OLD=P(T):GOSUB 1840:IF RN=D1 THEN GOSUB 

1740:IF F>2THEN NEXTT 
1490 GOSUB 2240:P(T)=R:IF TR=1 THEN 1480 
1500 NEXTT 
1510 GOSUB 1720:POSITION 27,13:?" PUSH 

JYSTKBUTTONFORPROPERTYLIST";:FOR 1=1 TO300:NEXTI 
1520 POP :POKE 77,0:GOTO 1420 

1530 FOR 1=1 TO PLY: POSITION 1 7,1 6+I:? " ";M(I);: IF M(l]<0 THEN GOSUB 1800 
1540 NEXT I 
1550 RETURN 
1560 POSITION 27,20:? "PUSH JOYSTKUP YESDOWN NO";:IF STRIG(T-1]=1 5 

THEN GOSUB 3380 
1570 IFSTRIG(T-1]=0THEN GOSUB 3380:GOSUB 2250:RETURN 
1580SK=STICK(T-1):IFSK=14 ORSK=13THEN RETURN 
1590 GOTO 1560 

1 600 POSITION 27,20:? "HIT JOYSTK";:IF STICK(T-1 ]=1 5 THEN 1 600 
1610 RETURN 

1620 POSITION X,Y:PRINT".":RETURN 
1630 POSITION X,Y:PRINT"..":RETURN 
1640 POSITION X,Y:PRINT"...":RETURN 
1650 POSITION X,Y:PRINT". .. .":RETURN 

1660 POSITION X,Y:PRINT" ":RETURN 

1670 POSITION X,Y:PRINT" ":RETURN 

1680 POSITION X,Y:PRINT" ":RETURN 

1690 POSITION X,Z:PRINT" ":RETURN 
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1 700 RESTORE :FOR l=0 TO 23:READ X$:NEXT I 

1710 FOR l=0TO R-1:READ X$,X$,X$,X$:NEXT l:RETURN 

1720 FOR 1=1 TO 13:POSITION 26,1+9:? " ";:NEXT hRETURN 

1730 FOR 1=1 TO IMPOSITION 26,1+11:?" ";:NEXT hRETURN 

1 740 F=F+1 POSITION 27,16:? "YOU ROLLEDDOUBLES";:IF F=3 THEN ? 

"3 TIMES";:R=30:P(T)=10:GOSUB 2240 
1750TR=1:RETURN 
1760 POSITION 30,S:? "? ";:Q$="":FOR 1=1 TO 5:GET #1,IN:IF IN=155 

THEN 1780 
1770? CHR$(IN);:Q$[I,I]=CHR$(IN]:NEXT I 
1 780 IF Q$="" THEN Q$="P":X=5 
1790 PRINT" ":RETURN 
1800 REM BANKRUPT 

1810GOSUB 1720MF M(1)<0THEN POSITION 30,13:? N1$;:GOTO 1830 
1820 IF M(2)<0THEN POSITION 30,13:? N2$; 
1830 POSITION 26,15:?" YOURBANKRUPT";:END 
1840 GOSUB 1730:POSITION 27,13:? "ROLL WITH":POSITION 27,14:PRINT 

"JOYSTICK ";T 
1850 IF STRIG(T-1)=0 THEN GOSUB 3380 
1 860 IF STICKfM ]=1 5 THEN 1 840 
1870 GOSUB 1730 
1880 GOSUB 3210:Y=RN:X=27:Z=O1 Y:GOSUB 1690:GOSUB 1680:X=28:ON 

RN GOSUB 1620,1 630,1 640,1 650,1 660,1 670:01 Y=Y 
1890D1=RN 
1900 GOSUB 3210:Y=RN:X=32:Z=O2Y:GOSUB 1690:GOSUB 1680:X=33:ON 

RN GOSUB 1 620,1 630,1 640,1 650,1 660,1 670:O2Y=Y 
1910ROLL=RN+D1:R=ROLL+OLD:IF R<41 THEN 1930 
1920 R=R-40:M(T]=M(T]+200: GOSUB 1530 
1930OLD=R:RETURN 
1940 FOR Z=0TO 10:POSITION4,Z+4:PRINT": :":NEXT Z:READ 

X$,PRICE,RENT:POSITION 5,6:? X$ 
1950 IF Y$="ST"THEN 32767 
1 960 IF Y$="CC" THEN GOSUB 2420 
1 970 IF Y$="C" THEN GOSUB 2550 

1 980 IF Y$="T" AND M(T)>1 999 THEN M(T)=M(T)-200:GOTO 2050 
1 990 IF Y$="T" THEN M[T)=M[T)-INT(M[T)*0.1 ) 
2000 IF Y$="R" THEN GOSUB 2300 
2010 IF Y$="U" THEN GOSUB 2300 

2020 IF Y$="J" THEN R=10:P(T)=1 0:TR=0:M(T]=M(T]-50:GOTO 2240 
2030 IF Y$="L" THEN M(T)=M[T)-75 
2040 IF Y$="G" THEN M(T)=M[T]+200:R=0 
2050 Y$="ST": RETURN 

2060 POSITION 23,1:?" ";:WK=R:R=P(T]:SD=1 :GOSUB 21 20:GOSUB 21 90 
2070 VK=0:IF WK<P[TJ THEN VK=40 
2080 TE=1 :IF BACK=1 THEN TE=-1 :BACK=0:VK=0 



197 



2090 FOR R=P(T)+1 TO (WK+VK) STEP TE:GOSUB 21 20:GOSUB 21 90:NEXT 

R:R=WK 
21 00 GOSUB 21 20:PRINT TK$(T,T); 
2110P[T]=R:RETURN 
2120 DF=R:IF R>40 THEN R=R-40 
21 30 IF R=0 OR R=40 THEN X=23:Y=23 
2140 IF R>0 AND R<1 1 THEN Y=23:X=23-(R*2) 
2150 IF R>10 AND R<21 THEN X=1 :Y=22-((R-1 0]*2] 
21 60 IF R>20 AND R<31 THEN Y=1 :X=[R-20)*2+3 
21 70 IF R>30 AND R<40 THEN X=24:Y=(R-30]*2+2 
2180 POSITION X,Y:R=DF:RETURN 

21 90 POSITION X,Y:GET#2,UY:POSITION X,Y:IFSD=1 THEN SD=0:GOTO 2210 
2200 PRINT TK$(T,T);:SOUND 2,1 00,1 00,1 00:SOUND 2,0,0,0 
2210 IF CHR$[UY)=TK$(T,T] THEN UY=160 




2220 POSITION X,Y:PRINT CHR$(UY); 

2230 FOR Z9=1 TO 1 0:NEXT Z9:RETURN 

2240 GOSUB 2060 

2250 GOSUB 1 700:READ Y$:IF LEN(Y$]<3 THEN GOTO 1 940 

2260 FOR Z=0 TO 10:POSITION 5.Z+4: PRINT" ":NEXTZ 

2270 POSITION 4,7:? "":POSITION 5,5:PRINT Y$ 

2280 READ X$:POSITION 5,8:PRINT X$ 

2290 READ PRICE,RENT:POSITION 6,1 2:PRINT "PRICE $";PRICE 

2300 GOSUB 1530:GOSUB 1 730:PR=VAL(P$(R,R]]:IF PR=TTHEN 2400 

231 IF PR=0 THEN 2380 

2320 IF PR>5 THEN STOP 

2330 POSITION 5,4:? CHR$(ASC(TK$(PR)]-1 28]; 

2340 IF Y$="R" THEN GOSUB 2710 

2350 IF Y$="U" THEN GOSUB 2780 

2360 POSITION 28,1 3:? "YOU OWERENT TOPLAYER";PR;"$";RENT; 
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:M(T]=M(T]-RENT:M{PR)=M(PR]+RENT 
2370 GOSUB 1600:RETURN 
2380 POSITION 28,1 3:? "DO YOUWANT TOBUY IT";:GOSUB 1560:IF 

SK=13THEN RETURN 
2390M[T]=M(T]-PRICE:P$(R,R)=STR$(T):RETURN 
2400 POSITION 5,4:? CHR$(ASC(TK$(PR])-1 28); 

2410 POSITION 29,1 3:? "YOU OWNIT":FOR 1=1 TO 1 50:NEXT hRETURN 
2420RH=RH+1:POSITION 5,10:ON RH GOSUB 2450,2460,2470,2480,2490, 

2500,251 0,2520,2530,2540 
2430 IF RH=10THEN RH=0 
2440 M(T]=M(T]+M:M=0:RETURN 

2450 ? " XMAS FUNDMATURESCOLLECTS1 00":M=1 00:RETURN 
24B0?"LIFEINSURANCEMATURESCOLLECT$100":M=100:RETURN 
2470 ? "INCOME TAXREFUNDCOLLECT$20":M=20:RETURN 
2480 ? "DOCTOR'SFEEPAY$50":M=-50:RETURN 
2490?"YOUINHERIT$100":M=100:RETURN 
2500 GOTO 2B40:REM GO 

2510?"PAYHOSPITAL$100":M=-100:RETURN 
2520 GOTO 2B70-.REM JAIL 
2530 ? "PAYSCHOOL TAX$50":M=-50:RETURN 
2540 ? "BANKERRORCOLLECT$200":M=200:RETURN 
2550 RC=RC+1 :POSITION 5,10:ON RC GOTO 2590,2600,2630,2640,2650, 

2660,2670,2680,2690,2700,2560 
2560 RC=0:GOTO 2550 

2570 POSITION 27,20:? "HIT JOYSTK";:IF STICK(T-1 )=1 5 THEN 2570 
2580 GOSUB 1 730:GOTO 2240 

2590 ? "PAY POORTAX OFS1 5":M(T]=M(T]-1 5:RETURN 
2600?"ADVANCETOILLINOISAVENUE":O=24:GOTO 2610 
2610 P(T)=R:IF 0<R THEN M(T]=M(T)+200 
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2620 R=0:GOTO 2570 

2630 ? "G0BACKTHREESPACES":R=R-3:BACK=1 :GOTO 2570 

2640 ? "ADVANCETOGO":R=40:GOTO 2570 

2650 ? "BANK PAYSDIVIDENDOF $50": M(T]=M(T)+50: RETURN 

2660? "TAKE A RIDEON THEREADING":0=5:GOTO 2610 

2670 ? "GOTOJAIL":R=30:GOTO 2570 

2680? "BUILDINGS LOANMATURESCOLLECT$1 50":M(T]=M(T)+1 50:RETURN 

2690?"ADVANCETOBOARDWALK":O=39:GOTO 2610 

2700 ?"ADVANCETOST.CHARLESPLACE":0=11:GOTO 2610 

2710 RR=0:IF VAL(P$(5,5)]=PR THEN RR=RR+1 

2720 IF VAL(P$(1 5,1 5))=PR THEN RR=RR+1 

2730 IF VAL(P$[25,25)]=PR THEN RR=RR+1 

2740 IF VAL(P$(35,35))=PR THEN RR=RR+1 

2750 IF RR=1 OR RR=2 THEN RENT=RR*25:RETURN 

2760 IF RR=3 THEN RENT=100:RETURN 

2770 IF RR=4 THEN RENT=200: RETURN 

2780 IF VAL[P$(1 2,1 2))=VAL(P$(28,28)) THEN RENT=ROLL*1 0:RETURN 

2790 RENT=R0LL*4:RETURN 

2800 DATA BLANK,BLANK,0,0 

2810 DATA PURPLE,MEDITER-RANEANAVENUE,60,2 

2820 DATA CC,COMMUNITYCHEST,00 

2830 DATA PURPLE,BALTICAVENUE,60,4 

2840 DATATJNCOMETAX'PAY 10%OR$200,200,0 

2850 DATA R.READINGRAILROADPRICE $200,200,25 

2860 DATA LIGHT BLUE,ORIENTALAVENUE,1 00,6 

2870 DATA C,CHANCE?,0,0 

2880 DATA LIGHT BLUE,VERMONTAVENUE,100,6 

2890 DATA LIGHT BLUE.CONNECTICUTAVENUE ,1 20,8 

2900 DATA V,JUSTVISITINGJAIL,0,0 

2910 DATA MAROON,ST.CHARLESPLACE,140,10 

2920 DATA U.ELECTRICCOMPANYPRICE $1 50,1 50,0 

2930 DATA MAROON,STATESAVENUE,140,1 

2940 DATA MAROON,VIRGINIAAVENUE,1 60,1 2 

2950 DATA R.PENNSYL-VANIARAILROADPRICE $200,200,25 

2960 DATA ORANGE,ST.JAMESPLACE,1 80,14 

2970 DATA CC.COM MUNITYCHEST,0,0 

2980 DATA ORANGE,TENNESSEEAVENUE,180,14 

2990 DATA ORANGE.NEW YORKAVENUE.200,1 6 

3000 DATA F,FREEPARKING,0,0 

3010 DATA RED,KENTUCKYAVENUE,220,18 

3020 DATA C,CHANCE?,0,0 

3030 DATA RED,INDIANAAVENUE,220,18 

3040 DATA RED,ILLINOISAVENUE,240,20 

3050 DATA R.B.S. O.RAILROADPRICE $200,200,25 
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3060 DATA YELLOW,ATLANTICAVENUE,260,22 

3070 DATA YELLOW,VENTNORAVENUE,260,22 

3080 DATA U.WATERWORKSPRICE $1 50,1 50,35 

3090 DATA YELLOW,MARVINGARDENS,280,24 

3100 DATA J,GO TOJAIL.0,0 

31 10 DATA GREEN,PACIFICAVENUE,300,26 

3120 DATA GREEN,NORTHCAROLINAAVENUE,300,26 

3130 DATA CC,COMMUNITYCHEST,0,0 

3140 DATA GREEN,PENNSYLVANIAAVENUE,320,28 

31 50 DATA R.SHORTLINEPRICE $200,200,25 

31 60 DATA C,CHANCE?,0,0 

3170 DATA BLUE,PARKPLACE,350,35 

31 80 DATA LLUXURYTAXPAY $75,75,0 

3190 DATA BLUE,BOARDWALK,400,50 

3200 DATA G,GGGGGGGGGGGGGGGOOOOOOOOOOOOOOOO,200,0 

3210RN=INT(RND[0]*6]+1:RETURN 

3220GOSUB 1730:IFSTRIG(T-1]=0THEN 3220:REM EXIT 

3230 POSITION 27,1 3:? "HIT RESETBUTTON TOEXITJOYSTK TOCONTINUE" 

3240 IF STRIG[T-1]=0 THEN RUN "D1 :MENU" 

3250 IF STICK(T-1 )=1 5 THEN 3230 

3260 RETURN 

3270 RESTORE :FOR l=0 TO 23:READ X$:NEXT I 

3280 READ X$,X$,A,B 

3290X=X+1:PL=VAL(P$[X,X]]:IF PL=0THEN READ X$,X$,A,B:GOTO 3290 

3300 IF PL=9 THEN GOSUB 1730:RETURN 

3310 POSITION 5,4:? CHR$(ASC[TK$[PL])-1 28);X 

3320 READ Y$:IF LEN[Y$]<3 THEN GOTO 3370 

3330 FOR Z=1 TO 10:POSITION 5,Z+4:PRINT" ":NEXTZ 

3340 POSITION 4,7:? "".POSITION 5,5:PRINT Y$ 

3350 READ X$:POSITION 5,8:PRINT X$ 

3360 READ A,B:POSITION 6,1 2:PRINT "PRICE $";A:GOSUB 1600:GOTO 3290 

3370 FOR Z=1 TO 1 0.POSITION 4,Z+4:PRINT ": :":NEXT 

Z:READ X$,A,B:POSITION 5,6:? X$;:GOSUB 1 600:GOTO 3290 
3380 GOSUB 3220:GOSUB 1 730:POSITION 28,13:PRINT 

"PROPERTYOWNED";:X=0:GOTO 3270 
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Atari BASIC is just fast enough to make this game hair-raising and difficult. 
The screen will contain yellow squares that are capable of electrocuting your 
player or the robots. The outside frame is also electrically charged, but the 
robots are too smart to stumble into the frame; only you can do that! The 
robots are blue, and are attracted to you by electromotive force. If they get 
to you it's "game over." You win the game by hiding behind the yellow 
squares and luring the robots to their doom. You can even trick the robots 
into zapping each other by doubling back behind a yellow square. The title 
screen has a tricky feature. The PEEKs and POKEs in lines 1090 to 1110 
actually change the width of the scan lines on the text screen, and expand 
the text in a band in the top half of the screen. Press the <BREAK> key to 
stop the program while the title screen is on. Now, if you type LIST, you 
will see the program listing scroll by and print out in large type in this area 
of the screen. The routine in lines 1240 to 1280 inputs the difficulty factor. 
The variable A gets used later for the size of the steps the robots take. Lines 
1290 to 1360 set up a joystick lookup table. When the joystick is read in 
line 1770 the value for J will be translated into the directions to move by 
referring to the lookup table. The directions are in the form of +1,-1, and 
0's that are loaded from the DATA statements at the end of the program. 
Lines 1370 to 1430 draw the frame. Lines 1440 to 1510 set up the yellow 
squares. Lines 15 30 to 1610 put the robots on the screen. If the random 
number routine tries to put the robot on an occupied square the routine 
rejects that location and runs another random location. Lines 1700 to 1740 
change the color of your player while it waits for your move. Lines 1760 to 
1890 read the joystick and move the player. Change 1840 to COLORl and 
the player will not be "undrawn" in black. Lines 1900 to 2100 check to see if 
any robots are left and then moves the robots and detects hits. The locate 
commands in 2000 to 2030 detect collisions with robots, squares, or border. 
Lines 2120 to 2190 eliminate the robots that crash into the squares or each 
other. Finally, the program ends with the parting messages and sound routines. 
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1000 REM ************************************ 
1010REM* * 

1020 REM* ROBOT CHASE * 

1030 REM* * 

1040 REM ************************************ 
1050 REM 

1060 DIM JX[10),JY(10),RX[4],RY(4],A$[20] 
1070 GRAPHICS 
1080SETCOLOR 2,0,0 

I 090 W=PEEK[741 ]+256*PEEK(742]+6 
1 100 POKE W+4,7:REM CHANGE THE 

1 1 10 POKE W+5,7:REM DISPLAY LIST 
1120 POKE 752,1 

II 30 POSITION 7,4 

1140PRINT"ROBOT -CHASE-" 

1150 PRINT 

1 1 60 PRINT " Object is to get away from the" 

" robots by moving so that squares" 
are between you and the robots." 
Do not touch the wall or squares" 



For a new screen press the trigger." 



1180 PRINT 
11 90 PRINT 
1200 PRINT 
1210PRINT 
1220 PRINT 

1230 PRINT "DIFFICULTY LEVEL [1=HARD,2=EASY]' 

1240 INPUT A$ 

1250 IF A$="" THEN A$="2" 

1260A=INT(VAL(A$]] 

1 270 IF A<1 OR A>2 THEN A=1 

1280A=1/A 

1290 FOR l=0TO 10 

1300 READ V 

1310 JX[I)=V 

1320 NEXT I 

1330 FOR l=0TO 10 

1340 READ V 

1350JY(I)=V 

1360 NEXT I 

1370 GRAPHICS 3 

1380 COLOR 2 

1390 PLOT 0,0 

1400 DRAWTO 39,0 

1410 DRAWTO 39,19 

1420 DRAWTO 0,19 

1430 DRAWTO 0,0 
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1440 FOR 1=1 TO 10 

1450X=INT(RND(0)*40] 

1460Y=INT[RND(0]*20] 

1470 LOCATE X,Y,V 

1480 IF V< >0THEN 1450 

1490 COLOR 2 

1500 PLOTX.Y 

1510NEXTI 

1520 FOR 1=1 TO 4 

1530X=INT(RND(0]*40) 

1540Y=INT[RND(0]*20) 

1550 LOCATE X.Y.V 

1 560 IF V<>0 THEN 1 530 

1570 RX(I]=X 

1580RY(I]=Y 

1590 COLOR 3 

1600 PLOTX.Y 

1610 NEXT I 

1620X=INT(RND(0]*40) 

1630Y=INT(RND(0]*20] 

1640 LOCATE X.Y.V 

1650 IF VO0THEN 1620 

1660PX=X 

1670 PY=Y 

1680 COLOR 1 

1690 PLOTX.Y 

1 700 F=0 

1710 FOR l=0TO 128 

1720 POKE 708,1 

1730 IFSTICK(0]< >15 THEN l=128:F=1 

1740 NEXT I 

1750 IF F=0THEN 1710 

1760 POKE 708,40 

1770J=STICK(0]-5 

1780 SOUND 0,1 0,4,8 

1 790 IF STRIG(0)=0 THEN 2350 

1800X=PX+JX(J) 

1810Y=PY+JY[J] 

1820 LOCATE X,Y,V 

1830 IF V< >0THEN 2210 

1840 COLOR 

1850 PLOT PX.PY 

1860 COLOR 1 

1870 PLOTX.Y 
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1880 PX=X 

1890PY=Y 

1900 IF (RX[1)+RX(2]+RX[3]+RX(4]]<0 THEN PRINT " YOU WIN!!":GOTO 2290 

1910 FOR 1=1 TO 4 

1920 COLOR 

1930 IF RX(l)<0THEN 2060 

1940 PLOT RX(I],RY(I] 

1 950 X=RX(I]-PX:Y=RY(I)-PY 

1 960 IF X<0 THEN RX(I)=RX(I]+A 

1 970 IF X>0 THEN RX(I]=RX(I]-A 

1 980 IF Y<0 THEN RY[I)=RY(!)+A 

1 990 IF Y>0 THEN RY(I]=RY(I]-A 

2000 LOCATE RX(I],RY(I),V 

2010 IF V=1 THEN 2080 

2020 IF V=2 THEN RX(I)=-1 :GOTO 2060 

2030 IF V=3 THEN 2120 

2040 COLOR 3 

2050 PLOT RX(I],RY(I] 

2060 NEXT I 

2070 GOTO 1770 

2080 COLOR 1 

2090 PLOT PX.PY 

21 00 PRINT "YOU HAVE BEEN CAUGHT BY A ROBOT!" 

21 10 GOTO 2240 

2120FORS=1 TO 4 

2130 IF RX(S]=-1 OR S=l THEN 2190 

2140 IF RX(S)ORX(l] OR RY[S]< >RY(I] THEN 2190 

2150 COLOR 

2160 PLOT RX(S],RY[S] 

2170RX(I]=-1 

2180 RX(S]=-1 

21 90 NEXT S 

2200 GOTO 2060 

2210 IF V=2 THEN PRINT "YOU HAVE BEEN ELECTROCUTED!!!" 

2220 IF V=3 THEN PRINT "YOU RAN RIGHT INTO A ROBOT!" 

2230IFV=1 THEN 1840 

2240 PRINT" YOU LOSE." 

2250 FOR l=0TO 128 

2260 SOUND 0,1,8,8 

2270 POKE 708,1 

2280 NEXT I 

2290 POKE 708,40 

2300 SOUND 0,0,0,0 

2310 PRINT 
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2320 PRINT "HIT TRIGGER TO PLAY AGAIN!" 

2330 IF STRIG(0]< >0 THEN 2330 

2340 GOTO 1370 

2350 PRINT "GIVE UP? OK HERE'S A NEW SCREEN." 

2360 GOTO 2290 

2370 DATA 1 ,1 ,1 ,0,-1 ,-1 ,-1 ,0,0,0,0 

2380 DATA 1 ,-1 ,0,0,1 ,-1 ,0,0,1 ,-1 ,0 
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Stranded is a two player board game. Each move consists of two parts: you 
move your piece to an unoccupied square, and then block off one square on 
the board so that neither player can move onto it. The object of the game is 
to prevent your opponent from moving. The first player who is unable to 
move is the loser. The game is written for two joysticks, but you can easily 
change play to the keyboard arrows by changing the paddle reading subroutine 
in 1240 to 1310. There is a keyboard arrow reading subroutine in Dragon's 
Lair. The program has good playing speed because the subroutines are at the 
beginning of the program. The routine at 1190 to 1230 draws the moving 
square. The square is drawn in the color set by C and then drawn over in 
black to make it flicker and move. The grid is set up in 1840 to 2050 and the 
beginning positions in 2060 to 2090. The play loop starts at 2110. The 
moves are made by swapping positions from XI to X2 to X3 as described in 
Mubble Chase. The subroutine in 1600 sets a flag F and tests the adjacent 
squares to see if any are empty. If none of the squares are empty the program 
branches to 2550 to announce the loser. 
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1000 REM ************************************ 
1010REM* * 

1020 REM* STRANDED * 

1030 REM* 

I 04 REM ************************************ 

1050 REM 

1060 DIM A(8,8),A$(20),X(2],Y(2] 

1070 GOTO 1710:REM SKIP SUBROUTINES 

1080 GRAPHICS 

1090 PRINT"}" 

1100 POSITION 11,3 

I I 1 PRINT "*** STRANDED ***" 
11 20 POSITION 2,6 

1130 RETURN 

1140 POSITION 2,23 

1 1 50 PRINT "PRESS 'RETURN' TO CONTINUE"; 

11 60 INPUT AS 

11 70 RETURN 

1180 COLOR C 

11 90 FOR Y1=-1+Y*4T0 1+Y*4 

1200 PLOT 14+X*5,Y1 

1210 DRAWTO 1 7+X*5,Y1 

1220 NEXT Y1 

1230 RETURN 

1240X1=0 

1250Y1H3 

1260 POKE 77,0 

1270IFA=11 OR A=10OR A=9 THEN X1=-1 

1280 IF A=7 OR A=6 OR A=5 THEN X1=1 

1290 IF A=14 OR A=10OR A=6 THEN Y1=-1 

1300 IF A=13 OR A=9 OR A=5THEN Y1=1 

1310 RETURN 

1320X2=X(L)+X1 

1330Y2=Y(L)+Y1 

1340 IF X2<1 OR Y2<1 THEN RETURN 

1350 IF X2>8 OR Y2>8 THEN RETURN 

1360 IF ABS(X2-X3)>1 THEN RETURN 

1370 IF ABS(Y2-Y3]>1 THEN RETURN 

1380 IF A(X2,Y2)>0 THEN RETURN 

1390A(X,Y)=0 

1400X=X2:X(L)=X 

1410 Y=Y2:Y(L]=Y 

1420A[X,Y)=L 
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1430 RETURN 

1440IFX=X3 AND Y=Y3 THEN RETURN 

1450T=2 

1460 RETURN 

1470 IF A(X,Y)>0 THEN RETURN 

1480A(X,Y]=3 

1490T=2 

1500 RETURN 

1510X2=X 

1520Y2=Y 

1530X2=X2+X1 

1540Y2=Y2+Y1 

1 550 IF X2<1 OR X2>8 THEN RETURN 

1 560 IF Y2<1 OR Y2>8 THEN RETURN 

1 570 IF A[X2,Y2)>0 THEN 1 530 

1580X=X2:Y=Y2 

1590 RETURN 

1600F=1 

1B10X2=-1:IFX=1 THENX2=0 

1 620 X3=1 :IF X=8 THEN X3=0 

1630 Y2=-1:IF Y=1 THEN Y2=0 

1640 Y3=1:IFY=8 THEN Y3=0 

1650 FOR X1=X+X2 TO X+X3 

1 660 FOR Y1 =Y+Y2 TO Y+Y3 

1 670 IF A[X1 ,Y1 )=0 THEN F=0 

1680 NEXT Y1 

1690NEXTX1 

1700 RETURN 

1710GOSUB 1080 

1 720 PRINT " THIS IS A GAME FOR TWO PLAYERS." 

1 730 PRINT "BOTH OF YOU WILL BE PLACED ON AN 8*8" 

1 740 PRINT "MATRIX. A PLAYER MAY MOVE IN ANY OF" 

1750 PRINT"EIGHT DIRECTIONS (PROVIDING THATTHE" 

1760 PRINT "DESTINATION IS EMPTY) BY USING THE" 

1770 PRINT "JOYSTICK." 

1780 PRINT 

1790 PRINT" AFTER YOU MOVE, I WILL ASK YOU TO" 

1800 PRINT "CHOOSE ON A SECOND SQUARE IN THE" 

1810PRINT"MATRIX. THAT SQUARE WILL THEN BECOME" 

1 820 PRINT "UNAVAILABLE TO MOVE INTO." 

1830GOSUB 1140 

1840 GRAPHICS 5 

1850 FOR X=1 TO 8 

1860 FOR Y=1 TO 8 
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1870A(X,Y]=0 

1880 NEXT Y 

1890 NEXT X 

1900A(1,4]=1 

1910A(8,5)=2 

1920 COLOR 3 

1930 PLOT 18,2 

1 940 DRAWTO 58,2 

1 950 DRAWTO 58,34 

1960 DRAWTO 18,34 

1970 DRAWTO 18,2 

1 980 FOR Y=6 TO 30 STEP 4 

1990 PLOT 18,Y 

2000 DRAWTO 58, Y 

2010 NEXT Y 

2020 FOR X=23 TO 53 STEP 5 

2030 PLOT X,2 

2040 DRAWTO X.34 

2050 NEXT X 

20B0X(1)=1:Y(1]=4 

2070X(2)=8:Y(2)=5 

2080 C=1 :X=1 :Y=4:G0SUB 1 1 80 

2090 C=2:X=8:Y=5:G0SUB 1 1 80 

2100 REM 

21 10 REM MAIN LOOP FOR PLAY OF GAME 

2120 REM 

21 30 FOR L=1 TO 2 

2140 C=L 

2150X=X(L] 

2160Y=Y(L) 

2170GOSUB 1600 

2180 IF F=1 THEN 2550 

2190X3=X 

2200 Y3=Y 

221 PRINT "} PLAYER # ";L;" IT IS YOUR MOVE" 

2220 T=1 

2230 C=0 

2240GOSUB 1180 

2250A=STICK(L-1] 

2260 IF A< >15 THEN GOSUB 1240:GOSUB 1320 

2270 C=L 

2280 GOSUB 1180 

2290A=STRIG(L-1) 

2300 IF A=0 THEN GOSUB 1440 
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2310T=T+1 

2320 ON T GOTO 2230,2220,2325 

2325 IF STRIG(A-1 )=0 THEN 2325 

2330 PRINT "JPLAYER ";L;" PICK A SQUARE TO BLOCK' 

2340 FOR X1=1 TO 8 

2350 FOR Y1-1 TO 8 

2360 IF A(X1,Y1]>0 THEN 2400 

2370 X=X1 

2380 Y=Y1 

2390X1=8:Y1=X1 

2400 NEXT Y1 

2410 NEXT X1 

2420 T=1 

2430 C=0 

2440GOSUB 1180 

2450A=STICK(L-1] 

2460 IF A< >15 THEN GOSUB 1240:GOSUB 1510 

2470 C=3 

2480 GOSUB 1180 

2490A=STRIG(L-1) 

2500 IF A=0 THEN GOSUB 1 470 

2510T=T+1 

2520 ON T GOTO 2430,2420,2530 

2530 NEXT L 

2540 GOTO 21 30 

2550 PRINT "}THE GAME IS OVER PLAYER ";L;" LOST" 

2560 PRINT 

2570 PRINT "WOULD YOU LIKE TO PLAY AGAIN Y/N"; 

2580 INPUT A$ 

2590 IF A$="Y" THEN 1 560 

2600 END 
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Here is a game of PONG in reverse! All you have to do is avoid the little 
projectiles instead of hitting them. Sound easy? Well bunches of these critters 
keep pouring out on the screen and bouncing off every surface. The action 
isn't fast, but the strategy is, because moving the paddle is like moving a 
barge. You have to plan ahead and figure out the paths of several projectiles 
at once. Each projectile needs 4 places to store coordinates: 

NX = new X position, 
NY = new Y position, 
LX = last X postion, 
LY = last Y position. 

In lines 1740 to 1770 the Ls and Ns are swapped until the screen edge is 
reached, and the projectile bounces back. Lines 1780 and 1790 draw the 
projectile in black, erasing it before redrawing it in blue in lines 1800 to 
1810. Try changing 1780 to color 1 to see the trail of the projectiles. Lines 
I860 to 1920 use the LOCATE function to see if the projectile color (3) blue 
has been drawn over the paddle. If you change 1860 to RETURN, the paddle 
will not be detected. The screen will completely fill with projectiles. 
Changing lines around and disconnecting parts of the program is the easiest 
way to see what line performs what function. Save the correct version to tape or 
disk before tinkering with the nuts and bolts of the program. 
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1000 REM ************************************ 
1010REM* * 

1020 REM * 



POINT ATTACK 



1030 REM* * 

1040 REM ************************************ 

1050 REM 

1060 DIM A$(20),B(3,500) 

1070 REM 

1080 GOTO 1200:REM SKIP SUBROUTINES 

1090 REM 

11 00 GRAPHICS 

11 10 PRINT"}" 

11 20 POSITION 9,3 

1 1 30 PRINT "*** POINT ATTACK ***" 

1140 POSITION 2,7 

1150 RETURN 

11 60 POSITION 2,23 

1 1 70 PRINT "PRESS 'RETURN' TO CONTINUE"; 

11 80 INPUT AS 

1190 RETURN 

1200GOSUB 1100 

1210 PRINT "THIS IS A SIMPLE GAME WHERE YOU" 

1220 PRINT"DODGE THE MOVING BLOCKS. YOU GET" 

1230 PRINT"POINTS FOR THE NUMBER OF OBJECTS ON" 

1240 PRINT "ON THE SCREEN. YOU CAN ONLY MOVE" 

1250 PRINT "UP AND DOWN ON THE SCREEN, SO GOOD" 

1260 PRINT "LUCK!" 

1270GOSUB 1160 

1280 GRAPHICS 3 

1290 COLOR 1 

1300 PLOT 0,0 

1310 DRAWTO 39,0 

1320 DRAWTO 39,19 

1330 DRAWTO 0,19 

1340 DRAWTO 0,0 

1350 PRINT "(PRESS FIRE BUTTON TO BEGIN" 

1360X=18 

1370 Y=9 

1380N=1 

1390B(0,N)=1:REM STARTING X 

1400B(1,N)=INT(RND(0)*19)+1:REM STARTING Y 

1410B(2,N)=1:REM STARTING X DIRECTION 

1420B(3,N]=2-INT(RND(0)*19]+1:REM STARTING Y DIRECTION 
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1430 REM 

1440 COLOR 2 

1450 PLOT X.Y-1 

1460 DRAWTO X.Y+1 

1470GOSUB 1860 

1480 IF N=15THEN 1550 

1485 IF INT(RND(0)*100]<90THEN 1550 

1490N=N+1 

1500 B(0,N]=1 

1510 B(1,N)=INT(RND(0)*19)+1 

1520B(2,N)=1 

1530 B(3,N)=2-INT(RND(0)*19)+1 

1540 PRINT "(THERE ARE ";N;" POINTS" 

1550A=STICK(0) 

1560IF A=15THEN 1690 

1570Y1=Y 

1580 IF A=10 OR A=14 OR A=6 THEN Y1=Y1-1 

1590IFA=9 OR A=13 OR A=5 THEN Y1=Y1+1 

1600 IF YK2 THEN Y1=2 

1610IF Y1>17THEN Y1=17 

1620 COLOR 

1630 PLOT X.Y-1 

1640 DRAWTO X.Y+1 

1650Y=Y1 

1660 COLOR 2 

1670 PLOT X.Y-1 

1680 DRAWTO X.Y+1 

1690 FOR LX=1 TO N 

1700OX=B(0,LX) 

1710OY=B(1,LX] 

1720 NX=0X+B(2,LX) 

1730NY=OY+B(3,LX) 

1740 IF NX<1 THEN NX=1 :B[2,LX)=1 

1750 IF NX>38 THEN NX=3B:B(2,LX]=-1 

1 760 IF NY<1 THEN NY=1 :B(3,LX)=1 

1770 IF NY>18THEN NY=18:B(3,LX)=-1 

1780 COLOR 

1790 PLOT OX.OY 

1800 COLOR 3 

1810 PLOT NX.NY 

1820 B(0,LX)=NX 

1830B(1,LX]=NY 

1840 NEXT LX 

1850 GOTO 1470 
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1860 LOCATE X.Y-1.K 

1870 IF K=3 THEN 1930 

1880 LOCATE X.Y.K 

1890 IF K=3THEN 1930 

1900 LOCATE X.Y+1.K 

1910 IF K=3THEN 1930 

1920 RETURN 

1 930 PRINT "}THE GAME IS OVER" 

1940 PRINT 

1950 PRINT "THERE WERE ";N;" POINTS" 
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